! Program to test the ANY and ALL intrinsics
|
! Program to test the ANY and ALL intrinsics
|
program anyall
|
program anyall
|
implicit none
|
implicit none
|
logical, dimension(3, 3) :: a
|
logical, dimension(3, 3) :: a
|
logical, dimension(3) :: b
|
logical, dimension(3) :: b
|
character(len=10) line
|
character(len=10) line
|
|
|
a = .false.
|
a = .false.
|
if (any(a)) call abort
|
if (any(a)) call abort
|
a(1, 1) = .true.
|
a(1, 1) = .true.
|
a(2, 3) = .true.
|
a(2, 3) = .true.
|
if (.not. any(a)) call abort
|
if (.not. any(a)) call abort
|
b = any(a, 1)
|
b = any(a, 1)
|
if (.not. b(1)) call abort
|
if (.not. b(1)) call abort
|
if (b(2)) call abort
|
if (b(2)) call abort
|
if (.not. b(3)) call abort
|
if (.not. b(3)) call abort
|
b = .false.
|
b = .false.
|
write (line, 9000) any(a,1)
|
write (line, 9000) any(a,1)
|
read (line, 9000) b
|
read (line, 9000) b
|
if (.not. b(1)) call abort
|
if (.not. b(1)) call abort
|
if (b(2)) call abort
|
if (b(2)) call abort
|
if (.not. b(3)) call abort
|
if (.not. b(3)) call abort
|
|
|
a = .true.
|
a = .true.
|
if (.not. all(a)) call abort
|
if (.not. all(a)) call abort
|
a(1, 1) = .false.
|
a(1, 1) = .false.
|
a(2, 3) = .false.
|
a(2, 3) = .false.
|
if (all(a)) call abort
|
if (all(a)) call abort
|
b = all(a, 1)
|
b = all(a, 1)
|
if (b(1)) call abort
|
if (b(1)) call abort
|
if (.not. b(2)) call abort
|
if (.not. b(2)) call abort
|
if (b(3)) call abort
|
if (b(3)) call abort
|
b = .false.
|
b = .false.
|
write (line, 9000) all(a,1)
|
write (line, 9000) all(a,1)
|
read (line, 9000) b
|
read (line, 9000) b
|
if (b(1)) call abort
|
if (b(1)) call abort
|
if (.not. b(2)) call abort
|
if (.not. b(2)) call abort
|
if (b(3)) call abort
|
if (b(3)) call abort
|
|
|
9000 format (9L1)
|
9000 format (9L1)
|
end program
|
end program
|
|
|