gcc/testsuite/gfortran.dg/count_init_expr.f03

   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()
  15 END