integer :: i
integer, dimension (10), parameter :: a = (/(i * i, i = 1, 10)/)