From c3be9b37d7ea2114c83225c1130364b2ee212b15 Mon Sep 17 00:00:00 2001 From: Kaz Kojima Date: Tue, 28 Jul 2009 22:48:09 +0000 Subject: [PATCH] maxlocval_2.f90: Add -mieee for alpha*-*-* and sh*-*-* targets. * 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. From-SVN: r150189 --- gcc/testsuite/ChangeLog | 8 ++++++++ gcc/testsuite/gfortran.dg/maxlocval_2.f90 | 2 ++ gcc/testsuite/gfortran.dg/maxlocval_4.f90 | 2 ++ gcc/testsuite/gfortran.dg/minlocval_1.f90 | 2 ++ gcc/testsuite/gfortran.dg/minlocval_4.f90 | 2 ++ 5 files changed, 16 insertions(+) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ac5dc98973f..e2b4211fb8c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2009-07-28 Kaz Kojima + + * 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. + 2009-07-28 Jakub Jelinek PR fortran/40878 diff --git a/gcc/testsuite/gfortran.dg/maxlocval_2.f90 b/gcc/testsuite/gfortran.dg/maxlocval_2.f90 index 82f917a9bc1..afbfee030fe 100644 --- a/gcc/testsuite/gfortran.dg/maxlocval_2.f90 +++ b/gcc/testsuite/gfortran.dg/maxlocval_2.f90 @@ -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 --git a/gcc/testsuite/gfortran.dg/maxlocval_4.f90 b/gcc/testsuite/gfortran.dg/maxlocval_4.f90 index 408b08d6fad..8edf5357c31 100644 --- a/gcc/testsuite/gfortran.dg/maxlocval_4.f90 +++ b/gcc/testsuite/gfortran.dg/maxlocval_4.f90 @@ -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 --git a/gcc/testsuite/gfortran.dg/minlocval_1.f90 b/gcc/testsuite/gfortran.dg/minlocval_1.f90 index f821e54bd68..b66499afca9 100644 --- a/gcc/testsuite/gfortran.dg/minlocval_1.f90 +++ b/gcc/testsuite/gfortran.dg/minlocval_1.f90 @@ -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 --git a/gcc/testsuite/gfortran.dg/minlocval_4.f90 b/gcc/testsuite/gfortran.dg/minlocval_4.f90 index 1e72ba8e2a9..5332e823a7e 100644 --- a/gcc/testsuite/gfortran.dg/minlocval_4.f90 +++ b/gcc/testsuite/gfortran.dg/minlocval_4.f90 @@ -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) -- 2.30.2