＜END PROGRAM Example Program＞

Program end_program_example
  Real, Dimension(3) :: a, b
  a = (/1.,2.,3./)
  b = 2.*a
  Print *, b
End Program end_program_example

■ Execution Results

  2.0000000   4.0000000   6.0000000