＜ALL Example Program＞

Program all_example
  Real, Dimension(2,3) :: a, b
  a = Reshape( (/2.,3.,5.,-1.,4.,-3./), (/2,3/))
  b = Reshape( (/2.,3.,5.,-1.,0.,-3./), (/2,3/))
  Print *, All(a==b)
  Print *, All(a==b,1)
  Print *, All(Mask=a.Eq.b,Dim=2)
End Program

---

■ Execution Results

 F
 T T F
 F T