＜FORALL Example Program＞

Program forall_construct_example
  Real a(2,3)
  Forall (i=1:2,j=1:3)
    a(i,j) = i*10 + j
  End Forall}
  Print *,a(1,:)
  Print *,a(2,:)
End Program

■ Execution Results

  11.0000000  12.0000000  13.0000000
  21.0000000  22.0000000  23.0000000