1! { dg-do run }
2
3  INTEGER            :: i
4  INTEGER, PARAMETER :: m(4,4) = RESHAPE([ (i, i=1, 16) ], [4, 4] )
5  INTEGER, PARAMETER :: sevens = COUNT (m == 7)
6  INTEGER, PARAMETER :: odd(4) = COUNT (MOD(m, 2) == 1, dim=1)
7  INTEGER, PARAMETER :: even = COUNT (MOD(m, 2) == 0)
8
9  IF (sevens /= 1) CALL abort()
10  IF (ANY(odd /= [ 2,2,2,2 ])) CALL abort()
11  IF (even /= 8) CALL abort()
12
13  ! check the kind parameter
14  IF (KIND(COUNT (m == 7, KIND=2)) /= 2) CALL abort()
15END
16