＜IANY Example Program＞

Program iany_example
  Integer :: a(2,3)
  a = Reshape( [ 12.,13.,5.,-12.,2.,-3. ], [ 2,3 ])
  Print *, Iany(a)
  Print *, Iany(a,1)
  Print *, Iany(Array=a,Dim=2)
  Print *, Iany(a, Mask=a>0)
End Program

■ Execution Results

 -1
 13 -11 -1
 15 -3
 15