＜Array Constructor Example Program＞

Program array_constructor_example
  Real :: a(3) = (/ 1.,2.,3. /)
  Real b(3)
  b = (/ 4.,5.,6. /)
  Print *, a
  Print *, b
End Program

■ Execution Results

  1.0000000   2.0000000   3.0000000
  4.0000000   5.0000000   6.0000000