blob: 148833afcfecde869a3b80d275dec8f906eb1e85 [file] [log] [blame]
! { dg-do run }
INTEGER :: i
INTEGER, PARAMETER :: m(4,4) = RESHAPE([ (i, i=1, 16) ], [4, 4] )
INTEGER, PARAMETER :: sevens = COUNT (m == 7)
INTEGER, PARAMETER :: odd(4) = COUNT (MOD(m, 2) == 1, dim=1)
INTEGER, PARAMETER :: even = COUNT (MOD(m, 2) == 0)
IF (sevens /= 1) STOP 1
IF (ANY(odd /= [ 2,2,2,2 ])) STOP 2
IF (even /= 8) STOP 3
! check the kind parameter
IF (KIND(COUNT (m == 7, KIND=2)) /= 2) STOP 4
END