1! Program to test the ANY and ALL intrinsics 2program anyall 3 implicit none 4 logical, dimension(3, 3) :: a 5 logical, dimension(3) :: b 6 character(len=10) line 7 8 a = .false. 9 if (any(a)) call abort 10 a(1, 1) = .true. 11 a(2, 3) = .true. 12 if (.not. any(a)) call abort 13 b = any(a, 1) 14 if (.not. b(1)) call abort 15 if (b(2)) call abort 16 if (.not. b(3)) call abort 17 b = .false. 18 write (line, 9000) any(a,1) 19 read (line, 9000) b 20 if (.not. b(1)) call abort 21 if (b(2)) call abort 22 if (.not. b(3)) call abort 23 24 a = .true. 25 if (.not. all(a)) call abort 26 a(1, 1) = .false. 27 a(2, 3) = .false. 28 if (all(a)) call abort 29 b = all(a, 1) 30 if (b(1)) call abort 31 if (.not. b(2)) call abort 32 if (b(3)) call abort 33 b = .false. 34 write (line, 9000) all(a,1) 35 read (line, 9000) b 36 if (b(1)) call abort 37 if (.not. b(2)) call abort 38 if (b(3)) call abort 39 409000 format (9L1) 41end program 42