This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch fortran RFA] Tweak some {max,min}locval_*.f90 for alpha, sh and spu
- From: Kaz Kojima <kkojima at rr dot iij4u dot or dot jp>
- To: gcc-patches at gcc dot gnu dot org
- Cc: fortran at gcc dot gnu dot org
- Date: Tue, 28 Jul 2009 08:01:16 +0900 (JST)
- Subject: [patch fortran RFA] Tweak some {max,min}locval_*.f90 for alpha, sh and spu
Hi,
Some new {max,min}locval_*.f90 tests fail on sh*-*-* for NaN/Inf
which requires -mieee option on this target. The attached patch
adds -mieee for alpha and sh. It also skips them on spu which
has no nan support. Even with the patch, {max,min}locval_4.f90
fails on sh*-*-*, but it's turned out another problem on that
target - now libgfortran needs -mieee when building.
The patch is tested on i686-pc-linux-gnu too.
OK for trunk?
Regards,
kaz
--
2009-07-27 Kaz Kojima <kkojima@gcc.gnu.org>
* gfortran.dg/maxlocval_2.f90: Add -mieee for alpha*-*-* and
sh*-*-* targets. Skip on spu-*-* targets.
* gfortran.dg/maxlocval_4.f90: Likewise.
* gfortran.dg/minlocval_1.f90: Likewise.
* gfortran.dg/minlocval_4.f90: Likewise.
diff -uprN ORIG/trunk/gcc/testsuite/gfortran.dg/maxlocval_2.f90 trunk/gcc/testsuite/gfortran.dg/maxlocval_2.f90
--- ORIG/trunk/gcc/testsuite/gfortran.dg/maxlocval_2.f90 2009-07-26 17:40:47.000000000 +0900
+++ trunk/gcc/testsuite/gfortran.dg/maxlocval_2.f90 2009-07-27 10:41:31.000000000 +0900
@@ -1,4 +1,6 @@
! { dg-do run }
+! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
real :: a(3), nan, minf, pinf
real, allocatable :: c(:)
logical :: l
diff -uprN ORIG/trunk/gcc/testsuite/gfortran.dg/maxlocval_4.f90 trunk/gcc/testsuite/gfortran.dg/maxlocval_4.f90
--- ORIG/trunk/gcc/testsuite/gfortran.dg/maxlocval_4.f90 2009-07-26 17:40:47.000000000 +0900
+++ trunk/gcc/testsuite/gfortran.dg/maxlocval_4.f90 2009-07-27 10:40:42.000000000 +0900
@@ -1,4 +1,6 @@
! { dg-do run }
+! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
real :: a(3,3), b(3), nan, minf, pinf, h
logical :: l, l2
logical :: l3(3,3), l4(3,3), l5(3,3)
diff -uprN ORIG/trunk/gcc/testsuite/gfortran.dg/minlocval_1.f90 trunk/gcc/testsuite/gfortran.dg/minlocval_1.f90
--- ORIG/trunk/gcc/testsuite/gfortran.dg/minlocval_1.f90 2009-07-26 17:40:47.000000000 +0900
+++ trunk/gcc/testsuite/gfortran.dg/minlocval_1.f90 2009-07-27 10:41:10.000000000 +0900
@@ -1,4 +1,6 @@
! { dg-do run }
+! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
real :: a(3), nan, minf, pinf
real, allocatable :: c(:)
logical :: l
diff -uprN ORIG/trunk/gcc/testsuite/gfortran.dg/minlocval_4.f90 trunk/gcc/testsuite/gfortran.dg/minlocval_4.f90
--- ORIG/trunk/gcc/testsuite/gfortran.dg/minlocval_4.f90 2009-07-26 17:40:47.000000000 +0900
+++ trunk/gcc/testsuite/gfortran.dg/minlocval_4.f90 2009-07-27 10:38:58.000000000 +0900
@@ -1,4 +1,6 @@
! { dg-do run }
+! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
real :: a(3,3), b(3), nan, minf, pinf, h
logical :: l, l2
logical :: l3(3,3), l4(3,3), l5(3,3)