1! Program to test the COUNT intrinsic 2program intrinsic_count 3 implicit none 4 logical(kind=4), dimension (3, 5) :: a 5 integer(kind=4), dimension (3) :: b 6 integer i 7 character(len=10) line 8 9 a = .false. 10 if (count(a) .ne. 0) STOP 1 11 a = .true. 12 if (count(a) .ne. 15) STOP 2 13 a(1, 1) = .false. 14 a(2, 2) = .false. 15 a(2, 5) = .false. 16 if (count(a) .ne. 12) STOP 3 17 write (line, 9000) count(a) 18 read (line, 9000) i 19 if (i .ne. 12) STOP 4 20 21 b(1:3) = count(a, 2); 22 if (b(1) .ne. 4) STOP 5 23 if (b(2) .ne. 3) STOP 6 24 if (b(3) .ne. 5) STOP 7 25 b = 0 26 write (line, 9000) count(a,2) 27 read (line, 9000) b 28 if (b(1) .ne. 4) STOP 8 29 if (b(2) .ne. 3) STOP 9 30 if (b(3) .ne. 5) STOP 10 31 329000 format(3I3) 33 34end program 35