＜FORALL Example Program＞

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

■ Execution Results

  11.0000000  12.0000000  13.0000000
  21.0000000  22.0000000  23.0000000