URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [count_init_expr.f03] - Rev 427

Go to most recent revision | Compare with Previous | Blame | View Log

! { 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) CALL abort()
  IF (ANY(odd /= [ 2,2,2,2 ])) CALL abort()
  IF (even /= 8) CALL abort()

  ! check the kind parameter
  IF (KIND(COUNT (m == 7, KIND=2)) /= 2) CALL abort()
END

Go to most recent revision | Compare with Previous | Blame | View Log

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [count_init_expr.f03] - Rev 427