program array_02
implicit none

real, dimension(3) :: a, b

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

print *, a, b

end program
