program array3
implicit none

real, dimension(3) :: a, b

a = [1, 2, 3]
b = (/ 1, 2, 3 /)

end program
