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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [pr32533.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-O2 -ftree-vectorize -ffast-math" }`	`! { dg-options "-O2 -ftree-vectorize -ffast-math" }`
`!`	`!`
`! Contributed by Joost VandeVondele`	`! Contributed by Joost VandeVondele`
`!`	`!`
`SUBROUTINE T(nsubcell,sab_max,subcells)`	`SUBROUTINE T(nsubcell,sab_max,subcells)`
`INTEGER, PARAMETER :: dp=KIND(0.0D0)`	`INTEGER, PARAMETER :: dp=KIND(0.0D0)`
`REAL(dp) :: sab_max(3), subcells,nsubcell(3)`	`REAL(dp) :: sab_max(3), subcells,nsubcell(3)`
`nsubcell(:) = MIN(MAX(1,NINT(0.5_dp*subcells/sab_max(:))),20)`	`nsubcell(:) = MIN(MAX(1,NINT(0.5_dp*subcells/sab_max(:))),20)`
`END SUBROUTINE T`	`END SUBROUTINE T`

`INTEGER, PARAMETER :: dp=KIND(0.0D0)`	`INTEGER, PARAMETER :: dp=KIND(0.0D0)`
`REAL(dp) :: sab_max(3), subcells,nsubcell(3)`	`REAL(dp) :: sab_max(3), subcells,nsubcell(3)`
`subcells=2.0_dp`	`subcells=2.0_dp`
`sab_max=0.590060749244805_dp`	`sab_max=0.590060749244805_dp`
`CALL T(nsubcell,sab_max,subcells)`	`CALL T(nsubcell,sab_max,subcells)`
`IF (ANY(nsubcell.NE.2.0_dp)) CALL ABORT()`	`IF (ANY(nsubcell.NE.2.0_dp)) CALL ABORT()`
`END`	`END`