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