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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [count_init_expr.f03] - Blame information for rev 848

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [count_init_expr.f03] - Blame information for rev 848