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)) STOP 1
10   a(1, 1) = .true.
11   a(2, 3) = .true.
12   if (.not. any(a)) STOP 2
13   b = any(a, 1)
14   if (.not. b(1)) STOP 3
15   if (b(2)) STOP 4
16   if (.not. b(3)) STOP 5
17   b = .false.
18   write (line, 9000) any(a,1)
19   read (line, 9000) b
20   if (.not. b(1)) STOP 6
21   if (b(2)) STOP 7
22   if (.not. b(3)) STOP 8
23
24   a = .true.
25   if (.not. all(a)) STOP 9
26   a(1, 1) = .false.
27   a(2, 3) = .false.
28   if (all(a)) STOP 10
29   b = all(a, 1)
30   if (b(1)) STOP 11
31   if (.not. b(2)) STOP 12
32   if (b(3)) STOP 13
33   b = .false.
34   write (line, 9000) all(a,1)
35   read (line, 9000) b
36   if (b(1)) STOP 14
37   if (.not. b(2)) STOP 15
38   if (b(3)) STOP 16
39
409000 format (9L1)
41end program
42