OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

maxlocval_2.f90: Add -mieee for alpha*-*-* and sh*-*-* targets.

Browse Source 
* 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
This commit is contained in:
Kaz Kojima 2009-07-28 22:48:09 +00:00
parent e2121f173e
commit c3be9b37d7
5 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2009-07-28 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.
2009-07-28 Jakub Jelinek <jakub@redhat.com>
PR fortran/40878

2
gcc/testsuite/gfortran.dg/maxlocval_2.f90
View File

@ -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

2
gcc/testsuite/gfortran.dg/maxlocval_4.f90
View File

@ -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
gcc/testsuite/gfortran.dg/minlocval_1.f90
View File

@ -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

2
gcc/testsuite/gfortran.dg/minlocval_4.f90
View File

@ -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)