＜IALL Example Program＞

Program iall_example
  Integer :: a(2,3)
  a = Reshape( [ 12.,13.,5.,-1.,4.,-3. ], [ 2,3 ])
  Print *, Iall(a)
  Print *, Iall(a,1)
  Print *, Iall(Array=a,Dim=2)
  Print *, Iall(a, Mask=a)
End Program

■ Execution Results

 4
 12 5 4
 4 13
 -3