blob: a2de59fb98589053f77b8773247e3dab523f9aff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! Program to test the COUNT intrinsic
program intrinsic_count
implicit none
logical(kind=4), dimension (3, 5) :: a
integer(kind=4), dimension (5) :: b
integer i
a = .false.
if (count(a) .ne. 0) call abort
a = .true.
if (count(a) .ne. 15) call abort
a(1, 1) = .false.
a(2, 2) = .false.
a(2, 5) = .false.
if (count(a) .ne. 12) call abort
b(1:3) = count(a, 2);
if (b(1) .ne. 4) call abort
if (b(2) .ne. 3) call abort
if (b(3) .ne. 5) call abort
end program
|