gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_anyall.f90

   1 ! Program to test the ANY and ALL intrinsics
   2 program anyall
   3    implicit none
   4    logical, dimension(3, 3) :: a
   5    logical, dimension(3) :: b
   6
   7    a = .false.
   8    if (any(a)) call abort
   9    a(1, 1) = .true.
  10    a(2, 3) = .true.
  11    if (.not. any(a)) call abort
  12    b = any(a, 1)
  13    if (.not. b(1)) call abort
  14    if (b(2)) call abort
  15    if (.not. b(3)) call abort
  16
  17    a = .true.
  18    if (.not. all(a)) call abort
  19    a(1, 1) = .false.
  20    a(2, 3) = .false.
  21    if (all(a)) call abort
  22    b = all(a, 1)
  23    if (b(1)) call abort
  24    if (.not. b(2)) call abort
  25    if (b(3)) call abort
  26 end program