diff options
Diffstat (limited to 'gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90')
-rw-r--r-- | gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90 | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90 b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90 deleted file mode 100644 index 91a97cd82..000000000 --- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.5.f90 +++ /dev/null @@ -1,14 +0,0 @@ -! { dg-do run } - MODULE MOD - INTRINSIC MAX, MIN - END MODULE MOD - PROGRAM A31_5 - USE MOD, MIN=>MAX, MAX=>MIN - REAL :: R - R = -HUGE(0.0) - !$OMP PARALLEL DO REDUCTION(MIN: R) ! still does MAX - DO I = 1, 1000 - R = MIN(R, SIN(REAL(I))) - END DO - PRINT *, R - END PROGRAM A31_5 |