URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 273 |
Rev 519 |
! { dg-do run }
|
! { dg-do run }
|
MODULE MOD
|
MODULE MOD
|
INTRINSIC MAX, MIN
|
INTRINSIC MAX, MIN
|
END MODULE MOD
|
END MODULE MOD
|
PROGRAM A31_5
|
PROGRAM A31_5
|
USE MOD, MIN=>MAX, MAX=>MIN
|
USE MOD, MIN=>MAX, MAX=>MIN
|
REAL :: R
|
REAL :: R
|
R = -HUGE(0.0)
|
R = -HUGE(0.0)
|
!$OMP PARALLEL DO REDUCTION(MIN: R) ! still does MAX
|
!$OMP PARALLEL DO REDUCTION(MIN: R) ! still does MAX
|
DO I = 1, 1000
|
DO I = 1, 1000
|
R = MIN(R, SIN(REAL(I)))
|
R = MIN(R, SIN(REAL(I)))
|
END DO
|
END DO
|
PRINT *, R
|
PRINT *, R
|
END PROGRAM A31_5
|
END PROGRAM A31_5
|
|
|
! { dg-final { cleanup-modules "mod" } }
|
! { dg-final { cleanup-modules "mod" } }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
