target-supports.exp (add_options_for_ieee): New procedure.

	* lib/target-supports.exp (add_options_for_ieee): New procedure.
	* g++.dg/cdce3.C: Use dg-add-options ieee.
	* g++.dg/torture/type-generic-1.C: Likewise.
	* gcc.c-torture/compile/fix-trunc-mem-1.c: Likewise.
	* gcc.dg/pr28796-2.c: Likewise.
	* gcc.dg/torture/builtin-math-7.c: Likewise.
	* gcc.dg/torture/type-generic-1.c: Likewise.
	* gfortran.dg/boz_14.f90: Likewise.
	* gfortran.dg/erf_2.F90: Likewise.
	* gfortran.dg/init_flag_3.f90: Likewise.
	* gfortran.dg/init_flag_4.f90: Likewise.
	* gfortran.dg/init_flag_5.f90: Likewise.
	* gfortran.dg/integer_exponentiation_1.f90: Likewise.
	* gfortran.dg/integer_exponentiation_5.F90: Likewise.
	* gfortran.dg/isnan_1.f90: Likewise.
	* gfortran.dg/isnan_2.f90: Likewise.
	* gfortran.dg/maxlocval_2.f90: Likewise.
	* gfortran.dg/maxlocval_4.f90: Likewise.
	* gfortran.dg/minlocval_1.f90: Likewise.
	* gfortran.dg/minlocval_4.f90: Likewise.
	* gfortran.dg/module_nan.f90: Likewise.
	* gfortran.dg/namelist_42.f90: Likewise.
	* gfortran.dg/namelist_43.f90: Likewise.
	* gfortran.dg/nan_1.f90: Likewise.
	* gfortran.dg/nan_2.f90: Likewise.
	* gfortran.dg/nan_3.f90: Likewise.
	* gfortran.dg/nan_4.f90: Likewise.
	* gfortran.dg/nan_5.f90: Likewise.
	* gfortran.dg/nearest_1.f90: Likewise.
	* gfortran.dg/nearest_2.f90: Likewise.
	* gfortran.dg/nearest_3.f90: Likewise.
	* gfortran.dg/pr37243.f: Likewise.
	* gfortran.dg/real_const_3.f90: Likewise.
	* gfortran.dg/transfer_simplify_2.f90: Likewise.

Co-Authored-By: Kaz Kojima <kkojima@gcc.gnu.org>
From-SVN: r151250

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ff0259480420a574f4221b7530557318b8ad82ba..a91e015c0979ef9b00706640e7fdf1fb51850355 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,41 @@
+2009-08-31  Uros Bizjak  <ubizjak@gmail.com>
+           Kaz Kojima  <kkojima@gcc.gnu.org>
+
+       * lib/target-supports.exp (add_options_for_ieee): New procedure.
+       * g++.dg/cdce3.C: Use dg-add-options ieee.
+       * g++.dg/torture/type-generic-1.C: Likewise.
+       * gcc.c-torture/compile/fix-trunc-mem-1.c: Likewise.
+       * gcc.dg/pr28796-2.c: Likewise.
+       * gcc.dg/torture/builtin-math-7.c: Likewise.
+       * gcc.dg/torture/type-generic-1.c: Likewise.
+       * gfortran.dg/boz_14.f90: Likewise.
+       * gfortran.dg/erf_2.F90: Likewise.
+       * gfortran.dg/init_flag_3.f90: Likewise.
+       * gfortran.dg/init_flag_4.f90: Likewise.
+       * gfortran.dg/init_flag_5.f90: Likewise.
+       * gfortran.dg/integer_exponentiation_1.f90: Likewise.
+       * gfortran.dg/integer_exponentiation_5.F90: Likewise.
+       * gfortran.dg/isnan_1.f90: Likewise.
+       * gfortran.dg/isnan_2.f90: Likewise.
+       * gfortran.dg/maxlocval_2.f90: Likewise.
+       * gfortran.dg/maxlocval_4.f90: Likewise.
+       * gfortran.dg/minlocval_1.f90: Likewise.
+       * gfortran.dg/minlocval_4.f90: Likewise.
+       * gfortran.dg/module_nan.f90: Likewise.
+       * gfortran.dg/namelist_42.f90: Likewise.
+       * gfortran.dg/namelist_43.f90: Likewise.
+       * gfortran.dg/nan_1.f90: Likewise.
+       * gfortran.dg/nan_2.f90: Likewise.
+       * gfortran.dg/nan_3.f90: Likewise.
+       * gfortran.dg/nan_4.f90: Likewise.
+       * gfortran.dg/nan_5.f90: Likewise.
+       * gfortran.dg/nearest_1.f90: Likewise.
+       * gfortran.dg/nearest_2.f90: Likewise.
+       * gfortran.dg/nearest_3.f90: Likewise.
+       * gfortran.dg/pr37243.f: Likewise.
+       * gfortran.dg/real_const_3.f90: Likewise.
+       * gfortran.dg/transfer_simplify_2.f90: Likewise.
+
 2009-08-31  Dodji Seketeli  <dodji@redhat.com>
 
        PR debug/30161

diff --git a/gcc/testsuite/g++.dg/cdce3.C b/gcc/testsuite/g++.dg/cdce3.C
index 6756a700812384573f5778fbbcf577404d1dca18..3f05fd2e1d8fd1f57ebb3ea814ee12ddfb5f65f4 100644 (file)
--- a/gcc/testsuite/g++.dg/cdce3.C
+++ b/gcc/testsuite/g++.dg/cdce3.C
@@ -4,12 +4,12 @@
 /* { dg-options "-O2 -fmath-errno -fdump-tree-cdce-details -DLARGE_LONG_DOUBLE -lm" { target { {! pow10 } && large_long_double } } } */
 /* { dg-options "-O2 -fmath-errno -fdump-tree-cdce-details -DGNU_EXTENSION -lm" { target { pow10 && {! large_long_double } } } } */
 /* { dg-options "-O2 -fmath-errno -fdump-tree-cdce-details -lm" { target { {! pow10 } && {! large_long_double } } } } */
-/* { dg-options "-mieee -O2 -fmath-errno -fdump-tree-cdce-details  -DGNU_EXTENSION -DLARGE_LONG_DOUBLE -lm" { target { alpha*-*-* && { pow10 && large_long_double } } } } */
-/* { dg-options "-mieee -O2 -fmath-errno -fdump-tree-cdce-details -DLARGE_LONG_DOUBLE -lm" { target { alpha*-*-* && { {! pow10 } && large_long_double } } } } */
-/* { dg-options "-mieee -O2 -fmath-errno -fdump-tree-cdce-details -DGNU_EXTENSION -lm" { target { alpha*-*-* && { pow10 && {! large_long_double } } } } } */
-/* { dg-options "-mieee -O2 -fmath-errno -fdump-tree-cdce-details -lm" { target { alpha*-*-* && { {! pow10 } && {! large_long_double } } } } } */
-/* { dg-final { scan-tree-dump  "cdce3.C:95: note: function call is shrink-wrapped into error conditions\." "cdce" { target { pow10 } } } } */
-/* { dg-final { scan-tree-dump  "cdce3.C:96: note: function call is shrink-wrapped into error conditions\." "cdce" { target { pow10 } } } } */
+/* { dg-add-options ieee } */
+/* { dg-final { scan-tree-dump  "cdce3.C:92: note: function call is shrink-wrapped into error conditions\." "cdce" { target { pow10 } } } } */
+/* { dg-final { scan-tree-dump  "cdce3.C:93: note: function call is shrink-wrapped into error conditions\." "cdce" { target { pow10 } } } } */
+/* { dg-final { scan-tree-dump  "cdce3.C:95: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
+/* { dg-final { scan-tree-dump  "cdce3.C:96: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
+/* { dg-final { scan-tree-dump  "cdce3.C:97: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
 /* { dg-final { scan-tree-dump  "cdce3.C:98: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
 /* { dg-final { scan-tree-dump  "cdce3.C:99: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
 /* { dg-final { scan-tree-dump  "cdce3.C:100: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
@@ -21,9 +21,6 @@
 /* { dg-final { scan-tree-dump  "cdce3.C:106: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
 /* { dg-final { scan-tree-dump  "cdce3.C:107: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
 /* { dg-final { scan-tree-dump  "cdce3.C:108: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
-/* { dg-final { scan-tree-dump  "cdce3.C:109: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
-/* { dg-final { scan-tree-dump  "cdce3.C:110: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
-/* { dg-final { scan-tree-dump  "cdce3.C:111: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
 /* { dg-final { cleanup-tree-dump "cdce" } } */
 #include <stdlib.h>
 #include <math.h>

diff --git a/gcc/testsuite/g++.dg/torture/type-generic-1.C b/gcc/testsuite/g++.dg/torture/type-generic-1.C
index e9c17c328e7988c0e0e27c21ccfc415a2a6a6246..4d82592aff6bd7e8aad409bf10738486e8686455 100644 (file)
--- a/gcc/testsuite/g++.dg/torture/type-generic-1.C
+++ b/gcc/testsuite/g++.dg/torture/type-generic-1.C
@@ -2,7 +2,7 @@
    without any fast-math flags.  */
 
 /* { dg-do run } */
-/* { dg-options "-mieee" { target alpha*-*-* sh*-*-* } } */
+/* { dg-add-options ieee } */
 /* { dg-skip-if "No Inf/NaN support" { spu-*-* } } */
 
 #include "../../gcc.dg/tg-tests.h"

diff --git a/gcc/testsuite/gcc.c-torture/compile/fix-trunc-mem-1.c b/gcc/testsuite/gcc.c-torture/compile/fix-trunc-mem-1.c
index 739726db92bcf79764196fed577ce2f9eaebe722..dbd4282592c75d5d9eeaa10d00aa178765d44886 100644 (file)
--- a/gcc/testsuite/gcc.c-torture/compile/fix-trunc-mem-1.c
+++ b/gcc/testsuite/gcc.c-torture/compile/fix-trunc-mem-1.c
@@ -1,6 +1,6 @@
 /* PR target/14201  */
 /* Excercise float -> integer in memory patterns.  */
-/* { dg-options "-mieee" { target alpha*-*-* } }  */
+/* { dg-add-options ieee } */
 
 void f1 (float v,  int *p)                     { *p = v; }
 void f2 (float v,  unsigned int*p)             { *p = v; }

diff --git a/gcc/testsuite/gcc.dg/pr28796-2.c b/gcc/testsuite/gcc.dg/pr28796-2.c
index 17fd1584dde577a35c7a16cebd8accbf6d1a3600..f56a5d4a4449fbdb2df5eac7f8ec8075c908502f 100644 (file)
--- a/gcc/testsuite/gcc.dg/pr28796-2.c
+++ b/gcc/testsuite/gcc.dg/pr28796-2.c
@@ -1,6 +1,6 @@
 /* { dg-do run } */
 /* { dg-options "-O2 -funsafe-math-optimizations -fno-finite-math-only -DUNSAFE" } */
-/* { dg-options "-mieee -O2 -funsafe-math-optimizations -fno-finite-math-only -DUNSAFE" { target alpha*-*-* } } */
+/* { dg-add-options ieee } */
 /* { dg-skip-if "No Inf/NaN support" { spu-*-* } } */
 
 #include "tg-tests.h"

diff --git a/gcc/testsuite/gcc.dg/torture/builtin-math-7.c b/gcc/testsuite/gcc.dg/torture/builtin-math-7.c
index eaea86fd7327e1bd6e247561bf00646bd8c6bfb7..edd82e032fa66c07fb2455ec11d6b3fab358d4fd 100644 (file)
--- a/gcc/testsuite/gcc.dg/torture/builtin-math-7.c
+++ b/gcc/testsuite/gcc.dg/torture/builtin-math-7.c
@@ -6,7 +6,7 @@
 
 /* { dg-do run } */
 /* { dg-require-effective-target mpc } */
-/* { dg-options "-mieee" { target sh*-*-* } } */
+/* { dg-add-options ieee } */
 
 extern void link_error(int);
 

diff --git a/gcc/testsuite/gcc.dg/torture/type-generic-1.c b/gcc/testsuite/gcc.dg/torture/type-generic-1.c
index 96b5d01e5f64066814e276887fdee554ce2b7e98..add83c09815117a3384e5a4da5956255abfeead9 100644 (file)
--- a/gcc/testsuite/gcc.dg/torture/type-generic-1.c
+++ b/gcc/testsuite/gcc.dg/torture/type-generic-1.c
@@ -2,8 +2,8 @@
    without any fast-math flags.  */
 
 /* { dg-do run } */
-/* { dg-options "-mieee" { target alpha*-*-* sh*-*-* } } */
 /* { dg-skip-if "No Inf/NaN support" { spu-*-* } } */
+/* { dg-add-options ieee } */
 
 #include "../tg-tests.h"
 

diff --git a/gcc/testsuite/gfortran.dg/boz_14.f90 b/gcc/testsuite/gfortran.dg/boz_14.f90
index dd7e58e7c2c995e6e4edb83ecd865e75935f3e14..1e571780eeeee5de5ae33a1cd530b4d8f6a8af25 100644 (file)
--- a/gcc/testsuite/gfortran.dg/boz_14.f90
+++ b/gcc/testsuite/gfortran.dg/boz_14.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options "-mieee" { target alpha*-*-* } } 
+! { dg-add-options ieee }
 
 ! PR fortran/36214
 ! For BOZ-initialization of floats, the precision used to be wrong sometimes.

diff --git a/gcc/testsuite/gfortran.dg/erf_2.F90 b/gcc/testsuite/gfortran.dg/erf_2.F90
index d418d5fccb90d15b8e2807d29016616cdf4c0efc..087dfd38e19ba094b4902ab4d3a44e388956a8c7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/erf_2.F90
+++ b/gcc/testsuite/gfortran.dg/erf_2.F90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-fno-range-check -ffree-line-length-none " }
-! { dg-options "-fno-range-check -ffree-line-length-none -mieee" { target alpha*-*-* } } */
+! { dg-add-options ieee }
 !
 ! Check that simplification functions and runtime library agree on ERF,
 ! ERFC and ERFC_SCALED.

diff --git a/gcc/testsuite/gfortran.dg/init_flag_3.f90 b/gcc/testsuite/gfortran.dg/init_flag_3.f90
index 4a3fd1eb30676626e851d877e84bb0cbc2062756..e4426177ab60dd8958fca8c25c69c76069ec78d1 100644 (file)
--- a/gcc/testsuite/gfortran.dg/init_flag_3.f90
+++ b/gcc/testsuite/gfortran.dg/init_flag_3.f90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-finit-integer=-1 -finit-logical=false -finit-real=nan" }
-! { dg-options "-finit-integer=-1 -finit-logical=false -finit-real=nan -mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 
 program init_flag_3

diff --git a/gcc/testsuite/gfortran.dg/init_flag_4.f90 b/gcc/testsuite/gfortran.dg/init_flag_4.f90
index 8e1265e9347b097fc1ed7ea18713b6a3bd58c045..b79ec61f1157009bc8ae4cf3ae62da3916cd2b11 100644 (file)
--- a/gcc/testsuite/gfortran.dg/init_flag_4.f90
+++ b/gcc/testsuite/gfortran.dg/init_flag_4.f90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-finit-real=inf" }
-! { dg-options "-finit-real=inf -mieee" { target alpha*-*-* } } */
+! { dg-add-options ieee }
 
 program init_flag_4
   call real_test

diff --git a/gcc/testsuite/gfortran.dg/init_flag_5.f90 b/gcc/testsuite/gfortran.dg/init_flag_5.f90
index 5531251b00fc07185563756ed129d57305bb10ad..54f891f49e8d9a99e49e752358ae1f98bd0be7bb 100644 (file)
--- a/gcc/testsuite/gfortran.dg/init_flag_5.f90
+++ b/gcc/testsuite/gfortran.dg/init_flag_5.f90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-finit-real=-inf" }
-! { dg-options "-finit-real=-inf -mieee" { target alpha*-*-* } } */
+! { dg-add-options ieee }
 
 program init_flag_5
   call real_test

diff --git a/gcc/testsuite/gfortran.dg/integer_exponentiation_1.f90 b/gcc/testsuite/gfortran.dg/integer_exponentiation_1.f90
index 77ef84c2e9267f37c8aac84b9f5d951094c386b7..4dcb3a44cd51ba061e73329e57e910bb53fa70ac 100644 (file)
--- a/gcc/testsuite/gfortran.dg/integer_exponentiation_1.f90
+++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_1.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options "-pedantic -mieee" { target alpha*-*-* } }
+! { dg-add-options ieee }
 ! PR 30981 - this used to go into an endless loop during execution.
 program test
   a = 3.0

diff --git a/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90 b/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90
index fe431ba14e9f98fd7ebc7b2bf68666bef6aef8fc..58c7614d514eeee2257b32035f0f2fe4215bcb8c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90
+++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90
@@ -1,7 +1,7 @@
 ! { dg-do run { xfail spu-*-* } }
 ! FAILs on SPU because of invalid result of 1.0/0.0 inline code
 ! { dg-options "-fno-range-check" }
-! { dg-options "-fno-range-check -mieee" { target alpha*-*-* } } */
+! { dg-add-options ieee }
 module mod_check
   implicit none
 

diff --git a/gcc/testsuite/gfortran.dg/isnan_1.f90 b/gcc/testsuite/gfortran.dg/isnan_1.f90
index 47187432bf278725f99f177c045001087a2f8394..89e4cd35ba29be29f645dda6dee2011536bd9ec1 100644 (file)
--- a/gcc/testsuite/gfortran.dg/isnan_1.f90
+++ b/gcc/testsuite/gfortran.dg/isnan_1.f90
@@ -1,7 +1,7 @@
 ! Test for the ISNAN intrinsic
 !
 ! { dg-do run }
-! { dg-options "-pedantic-errors -mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
   implicit none

diff --git a/gcc/testsuite/gfortran.dg/isnan_2.f90 b/gcc/testsuite/gfortran.dg/isnan_2.f90
index fe6e9314613a00484275e051b9b92321855781ad..455ecef1f7a8dd162ea925ec01bc77cdb94f418d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/isnan_2.f90
+++ b/gcc/testsuite/gfortran.dg/isnan_2.f90
@@ -2,7 +2,7 @@
 !
 ! { dg-do run }
 ! { dg-options "-fno-range-check" }
-! { dg-options "-fno-range-check -pedantic-errors -mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
   implicit none

diff --git a/gcc/testsuite/gfortran.dg/maxlocval_2.f90 b/gcc/testsuite/gfortran.dg/maxlocval_2.f90
index afbfee030fe33aa5973b56daf393a417e9a864dc..5f6b913b0f4caabfceadb7dcb8712efdcaf4e0a7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/maxlocval_2.f90
+++ b/gcc/testsuite/gfortran.dg/maxlocval_2.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } } 
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
   real :: a(3), nan, minf, pinf
   real, allocatable :: c(:)

diff --git a/gcc/testsuite/gfortran.dg/maxlocval_4.f90 b/gcc/testsuite/gfortran.dg/maxlocval_4.f90
index 8edf5357c317624133f4e1966c3aa386ea1aa8ee..029abe3d1a7b424541bba7efcabb48738f3936e4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/maxlocval_4.f90
+++ b/gcc/testsuite/gfortran.dg/maxlocval_4.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } } 
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
   real :: a(3,3), b(3), nan, minf, pinf, h
   logical :: l, l2

diff --git a/gcc/testsuite/gfortran.dg/minlocval_1.f90 b/gcc/testsuite/gfortran.dg/minlocval_1.f90
index b66499afca908e0bd7af897eec4a223b1dcb2a37..261cab346a937bf82c766ca6d20937c9f804fc5b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/minlocval_1.f90
+++ b/gcc/testsuite/gfortran.dg/minlocval_1.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } } 
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
   real :: a(3), nan, minf, pinf
   real, allocatable :: c(:)

diff --git a/gcc/testsuite/gfortran.dg/minlocval_4.f90 b/gcc/testsuite/gfortran.dg/minlocval_4.f90
index 5332e823a7e088244b8cdf89b416b28e7701d350..c42b01944213a57727e3c7d649fbc214e5bf72db 100644 (file)
--- a/gcc/testsuite/gfortran.dg/minlocval_4.f90
+++ b/gcc/testsuite/gfortran.dg/minlocval_4.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } } 
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
   real :: a(3,3), b(3), nan, minf, pinf, h
   logical :: l, l2

diff --git a/gcc/testsuite/gfortran.dg/module_nan.f90 b/gcc/testsuite/gfortran.dg/module_nan.f90
index d6db6fb054b6506030aa56ae1faee2d413ac8556..ed841a891ab6b96c94d361ea63a631e448469f32 100644 (file)
--- a/gcc/testsuite/gfortran.dg/module_nan.f90
+++ b/gcc/testsuite/gfortran.dg/module_nan.f90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-fno-range-check" }
-! { dg-options "-fno-range-check -mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
 ! PR fortran/34318

diff --git a/gcc/testsuite/gfortran.dg/namelist_42.f90 b/gcc/testsuite/gfortran.dg/namelist_42.f90
index 476c1196caaee0684eef4dd11fe1ea50d749e384..f15914ff1175cc4c913f96e6b5acb84705a8e21d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_42.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_42.f90
@@ -1,5 +1,5 @@
 ! { dg-do run { target fd_truncate } }
-! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
 ! PR fortran/34427

diff --git a/gcc/testsuite/gfortran.dg/namelist_43.f90 b/gcc/testsuite/gfortran.dg/namelist_43.f90
index fbfd3d5e69d54ca4716628ec57ab27bac06107d3..d2f077e9c48ffc71a79a52bcebf0ffb27e51beb4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_43.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_43.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
 ! PR fortran/34427

diff --git a/gcc/testsuite/gfortran.dg/nan_1.f90 b/gcc/testsuite/gfortran.dg/nan_1.f90
index 938c04f004d44325daee1c2db63f797090c0fecc..609780d69d16e89b7018ebda6ccfaeac4bd9ac17 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nan_1.f90
+++ b/gcc/testsuite/gfortran.dg/nan_1.f90
@@ -2,7 +2,7 @@
 ! as arguments
 !
 ! { dg-do run }
-! { dg-options "-pedantic-errors -mieee" { target alpha*-*-* sh*-*-* } } 
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
 module aux2

diff --git a/gcc/testsuite/gfortran.dg/nan_2.f90 b/gcc/testsuite/gfortran.dg/nan_2.f90
index 5882fa0888e214b0620bb23c0e1823294deb634e..5c821d6513e2731ab733cab6bbd25508e631b5f8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nan_2.f90
+++ b/gcc/testsuite/gfortran.dg/nan_2.f90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-fno-range-check -pedantic" }
-! { dg-options "-fno-range-check -pedantic -mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
 ! PR fortran/34333

diff --git a/gcc/testsuite/gfortran.dg/nan_3.f90 b/gcc/testsuite/gfortran.dg/nan_3.f90
index 018608b500334605c82b1890985201b3065bfae2..0a46fdb6ce4e5359c4d403c81f2a44b45f2a6f23 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nan_3.f90
+++ b/gcc/testsuite/gfortran.dg/nan_3.f90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-fno-range-check" }
-! { dg-options "-fno-range-check -mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
 ! PR fortran/34319

diff --git a/gcc/testsuite/gfortran.dg/nan_4.f90 b/gcc/testsuite/gfortran.dg/nan_4.f90
index 09c887e17f27821ae000b6cb1ba3ec7ba279c679..30e2a49480dfc4d466a863034f864f54bc56f84f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nan_4.f90
+++ b/gcc/testsuite/gfortran.dg/nan_4.f90
@@ -1,6 +1,6 @@
 ! { dg-do compile }
 ! { dg-options "-std=gnu" } 
-! { dg-options "-std=gnu -mieee" { target alpha*-*-* sh*-*-* } } 
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
 ! PR fortran/34398.

diff --git a/gcc/testsuite/gfortran.dg/nan_5.f90 b/gcc/testsuite/gfortran.dg/nan_5.f90
index 64886bed0cff3bda79c3a4c90b22aa4c08cbb9f1..be1169d93d1884f06f002e5b08632aa787a6926c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nan_5.f90
+++ b/gcc/testsuite/gfortran.dg/nan_5.f90
@@ -3,7 +3,7 @@
 ! { dg-do compile }
 !
 ! { dg-options "-fno-range-check" }
-! { dg-options "-fno-range-check -mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 
   implicit none

diff --git a/gcc/testsuite/gfortran.dg/nearest_1.f90 b/gcc/testsuite/gfortran.dg/nearest_1.f90
index a38f25985cab46314cdc7aaa1f2ff15b382fbf44..ae9e75f1e8f25697722aaa799dcb7bad37117f6c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nearest_1.f90
+++ b/gcc/testsuite/gfortran.dg/nearest_1.f90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-O0 -ffloat-store" }
-! { dg-options "-O0 -ffloat-store -mieee" { target alpha*-*-* } }
+! { dg-add-options ieee }
 ! { dg-skip-if "Denormals not supported" { spu-*-* } { "*" } { "" } }
 ! PR fortran/27021
 ! Original code submitted by Dominique d'Humieres

diff --git a/gcc/testsuite/gfortran.dg/nearest_2.f90 b/gcc/testsuite/gfortran.dg/nearest_2.f90
index 8bb47687015db93f7eca270e7d655006696b2a3d..c5977415bc3c1eeb3c3bd935d2eee70ba951ed69 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nearest_2.f90
+++ b/gcc/testsuite/gfortran.dg/nearest_2.f90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-fno-range-check" }
-! { dg-options "-fno-range-check -mieee" { target alpha*-*-* sh*-*-* } }
+! { dg-add-options ieee }
 !
 ! PR fortran/34192
 !

diff --git a/gcc/testsuite/gfortran.dg/nearest_3.f90 b/gcc/testsuite/gfortran.dg/nearest_3.f90
index b2bb7e3e5b9075fb8fa68f8ddacd327374bbc008..7d6831670050d23c7056cd60e1302a15a87e0ff8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nearest_3.f90
+++ b/gcc/testsuite/gfortran.dg/nearest_3.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options "-pedantic-errors -mieee" { target alpha*-*-* sh*-*-* } } 
+! { dg-add-options ieee }
 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 !
 ! PR fortran/34209

diff --git a/gcc/testsuite/gfortran.dg/pr37243.f b/gcc/testsuite/gfortran.dg/pr37243.f
index 7322323d2c5559e4e71ab52974fcb29d6a9823a4..01ec0bdf88614e92f1a6404fbabd296561a8bc60 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr37243.f
+++ b/gcc/testsuite/gfortran.dg/pr37243.f
@@ -1,6 +1,6 @@
 ! PR rtl-optimization/37243
 ! { dg-do run }
-! { dg-options "-mieee" { target alpha*-*-* } }
+! { dg-add-options ieee }
 ! Check if register allocator handles IR flattening correctly.
       SUBROUTINE SCHMD(V,M,N,LDV)
       IMPLICIT DOUBLE PRECISION(A-H,O-Z)

diff --git a/gcc/testsuite/gfortran.dg/real_const_3.f90 b/gcc/testsuite/gfortran.dg/real_const_3.f90
index 6567ac74f6307bf57bc8bed3e8863ec18a326d9b..f428750ed0df2f58fe1dbacd9d166ba73b3d9ffb 100644 (file)
--- a/gcc/testsuite/gfortran.dg/real_const_3.f90
+++ b/gcc/testsuite/gfortran.dg/real_const_3.f90
@@ -1,6 +1,6 @@
 !{ dg-do run }
 !{ dg-options "-fno-range-check" }
-!{ dg-options "-fno-range-check -mieee" { target alpha*-*-* sh*-*-* } }
+!{ dg-add-options ieee }
 !{ dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
 ! PR19310 and PR19904, allow disabling range check during compile.
 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>

diff --git a/gcc/testsuite/gfortran.dg/transfer_simplify_2.f90 b/gcc/testsuite/gfortran.dg/transfer_simplify_2.f90
index dbad84e1ae1e380d0b18f01a7f6a38111d1bcdee..46052d0a0ecb6e2769cc7626763640579a16f162 100644 (file)
--- a/gcc/testsuite/gfortran.dg/transfer_simplify_2.f90
+++ b/gcc/testsuite/gfortran.dg/transfer_simplify_2.f90
@@ -1,6 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-O2" }
-! { dg-options "-O2 -mieee" { target alpha*-*-* } }
+! { dg-add-options ieee }
 ! Tests the fix for the meta-bug PR31237 (TRANSFER intrinsic)
 ! Exercises gfc_simplify_transfer a random walk through types and shapes
 ! and compares its results with the middle-end version that operates on

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 76624adcd794c5f4b5150964c2d6fbfa6d0666aa..b3b0156ae8762560a92718b9a8073cbcdf19497b 100644 (file)
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -2971,6 +2971,17 @@ proc add_options_for_c99_runtime { flags } {
     return $flags
 }
 
+# Add to FLAGS all the target-specific flags needed to enable
+# full IEEE compliance mode.
+
+proc add_options_for_ieee { flags } {
+    if { [istarget "alpha*-*-*"]
+         || [istarget "sh*-*-*"] } {
+       return "$flags -mieee"
+    }
+    return $flags
+}
+
 # Return 1 if the target provides a full C99 runtime.
 
 proc check_effective_target_c99_runtime { } {