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