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