20020919-1.c: Correct target selector to alpha*-*-*.

	* gcc.dg/20020919-1.c: Correct target selector to alpha*-*-*.
	* gcc.dg/pr31866.c: Ditto.
	* gcc.dg/torture/type-generic-1.c: Add -mieee for alpha*-*-* targets.
	* g++.dg/torture/type-generic-1.C: Ditto.
	* gfortran.dg/boz_9.f90: Ditto.
	* gfortran.dg/boz_14.f90: Ditto.
	* gfortran.dg/init_flag_3.f90: Ditto.
	* gfortran.dg/init_flag_4.f90: Ditto.
	* gfortran.dg/init_flag_5.f90: Ditto.
	* gfortran.dg/integer_exponentiation_1.f90: Ditto.
	* gfortran.dg/integer_exponentiation_5.F90: Ditto.
	* gfortran.dg/isnan_1.f90: Ditto.
	* gfortran.dg/isnan_2.f90: Ditto.
	* gfortran.dg/module_nan.f90: Ditto.
	* gfortran.dg/nan_1.f90: Ditto.
	* gfortran.dg/nan_2.f90: Ditto.
	* gfortran.dg/nan_3.f90: Ditto.
	* gfortran.dg/nan_4.f90: Ditto.
	* gfortran.dg/namelist_42.f90: Ditto.
	* gfortran.dg/namelist_43.f90: Ditto.
	* gfortran.dg/nearest_1.f90: Ditto.
	* gfortran.dg/nearest_2.f90: Ditto.
	* gfortran.dg/nearest_3.f90: Ditto.
	* gfortran.dg/pr37243.f: Ditto.
	* gfortran.dg/real_const_3.f90: Ditto.
	* gfortran.dg/transfer_simplify_2.f90: Ditto.
	* gfortran.fortran-torture/execute/intrinsic_spacing.x: New file.

	* gfortran.dg/default_format_denormal_1.f90: XFAIL on alpha.

From-SVN: r142639

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3a14097d584b2fd9a3be95fe5ea6bfa260ea5678..c147c4cc58ebfcaba42ee9a8a6da5b4780d066f9 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,35 @@
+2008-12-10 Uros Bizjak <ubizjak@gmail.com>
+
+       * gcc.dg/20020919-1.c: Correct target selector to alpha*-*-*.
+       * gcc.dg/pr31866.c: Ditto.
+       * gcc.dg/torture/type-generic-1.c: Add -mieee for alpha*-*-* targets.
+       * g++.dg/torture/type-generic-1.C: Ditto.
+       * gfortran.dg/boz_9.f90: Ditto.
+       * gfortran.dg/boz_14.f90: Ditto.
+       * gfortran.dg/init_flag_3.f90: Ditto.
+       * gfortran.dg/init_flag_4.f90: Ditto.
+       * gfortran.dg/init_flag_5.f90: Ditto.
+       * gfortran.dg/integer_exponentiation_1.f90: Ditto.
+       * gfortran.dg/integer_exponentiation_5.F90: Ditto.
+       * gfortran.dg/isnan_1.f90: Ditto.
+       * gfortran.dg/isnan_2.f90: Ditto.
+       * gfortran.dg/module_nan.f90: Ditto.
+       * gfortran.dg/nan_1.f90: Ditto.
+       * gfortran.dg/nan_2.f90: Ditto.
+       * gfortran.dg/nan_3.f90: Ditto.
+       * gfortran.dg/nan_4.f90: Ditto.
+       * gfortran.dg/namelist_42.f90: Ditto.
+       * gfortran.dg/namelist_43.f90: Ditto.
+       * gfortran.dg/nearest_1.f90: Ditto.
+       * gfortran.dg/nearest_2.f90: Ditto.
+       * gfortran.dg/nearest_3.f90: Ditto.
+       * gfortran.dg/pr37243.f: Ditto.
+       * gfortran.dg/real_const_3.f90: Ditto.
+       * gfortran.dg/transfer_simplify_2.f90: Ditto.
+       * gfortran.fortran-torture/execute/intrinsic_spacing.x: New file.
+
+       * gfortran.dg/default_format_denormal_1.f90: XFAIL on alpha.
+
 2008-12-09  Mark Mitchell  <mark@codesourcery.com>
 
        PR c++/37971

diff --git a/gcc/testsuite/g++.dg/torture/type-generic-1.C b/gcc/testsuite/g++.dg/torture/type-generic-1.C
index 7db2e69d0a58de8ca49c0866c81bafb0e02e67e4..e9c17c328e7988c0e0e27c21ccfc415a2a6a6246 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 sh*-*-* } } */
+/* { dg-options "-mieee" { target alpha*-*-* sh*-*-* } } */
 /* { dg-skip-if "No Inf/NaN support" { spu-*-* } } */
 
 #include "../../gcc.dg/tg-tests.h"

diff --git a/gcc/testsuite/gcc.dg/20020919-1.c b/gcc/testsuite/gcc.dg/20020919-1.c
index 15519bef7b4cd180ef7dcc733230aac3f67654d9..6b8c5ba7c52b66e20f7664aa624b1804058b9c36 100644 (file)
--- a/gcc/testsuite/gcc.dg/20020919-1.c
+++ b/gcc/testsuite/gcc.dg/20020919-1.c
@@ -8,7 +8,7 @@
    You must be this tall ---> fit two long longs in asm-declared registers
    to enter this amusement.  */
 
-/* { dg-do compile { target alpha-*-* cris-*-* crisv32-*-* i?86-*-* mmix-*-* powerpc*-*-* rs6000-*-* x86_64-*-* } } */
+/* { dg-do compile { target alpha*-*-* cris-*-* crisv32-*-* i?86-*-* mmix-*-* powerpc*-*-* rs6000-*-* x86_64-*-* } } */
 /* { dg-options "-O2" } */
 
 /* Constructed examples; input/output (same register), output, input, and

diff --git a/gcc/testsuite/gcc.dg/pr31866.c b/gcc/testsuite/gcc.dg/pr31866.c
index f1afd93031872add532c2554136decdf996a28df..4081c0e6ad955d23a569937db70e4413bc5d2ce3 100644 (file)
--- a/gcc/testsuite/gcc.dg/pr31866.c
+++ b/gcc/testsuite/gcc.dg/pr31866.c
@@ -1,5 +1,5 @@
 /* PR tree-optimization/31866 */
-/* { dg-do compile { target alpha-*-* cris-*-* crisv32-*-* i?86-*-* mmix-*-* powerpc*-*-* rs6000-*-* x86_64-*-* } } */
+/* { dg-do compile { target alpha*-*-* cris-*-* crisv32-*-* i?86-*-* mmix-*-* powerpc*-*-* rs6000-*-* x86_64-*-* } } */
 /* { dg-options "-O2" } */
 
 #if defined (__alpha__)

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

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

diff --git a/gcc/testsuite/gfortran.dg/boz_9.f90 b/gcc/testsuite/gfortran.dg/boz_9.f90
index 1488c6dc8be6ccb712d462d58bcc1d923590ec22..db35da0449ce1a548c7afad18eb1854ba2bd0240 100644 (file)
--- a/gcc/testsuite/gfortran.dg/boz_9.f90
+++ b/gcc/testsuite/gfortran.dg/boz_9.f90
@@ -1,5 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-fno-range-check" }
+! { dg-options "-fno-range-check -mieee" { target alpha*-*-* } } 
 !
 ! PR fortran/34342
 !

diff --git a/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90 b/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90
index 181ae9d79593f3933e1126b2ed1b90845a252206..c4d6086594d8a177e14a7dc4403dd615a92d93f7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90
+++ b/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run { xfail *-*-darwin[89]* *-*-freebsd* *-*-mingw* } }
+! { dg-do run { xfail alpha*-*-* *-*-darwin[89]* *-*-freebsd* *-*-mingw* } }
 ! Test XFAILed on these platforms because the system's printf() lacks
 ! proper support for denormals.
 !

diff --git a/gcc/testsuite/gfortran.dg/init_flag_3.f90 b/gcc/testsuite/gfortran.dg/init_flag_3.f90
index 7d6ab33cfc41f63d7c808eeac6b6f6b26b4855ea..9724d39c21743d2befce2777c1ce92caebd35fd7 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 "-mieee -finit-integer=-1 -finit-logical=false -finit-real=nan" { target sh*-*-* } }
+! { dg-options "-finit-integer=-1 -finit-logical=false -finit-real=nan -mieee" { target alpha*-*-* sh*-*-* } }
 
 program init_flag_3
   call real_test

diff --git a/gcc/testsuite/gfortran.dg/init_flag_4.f90 b/gcc/testsuite/gfortran.dg/init_flag_4.f90
index 8ec40bc8fa55a40210e0f8832d6fe7a0a4fcffd8..8e1265e9347b097fc1ed7ea18713b6a3bd58c045 100644 (file)
--- a/gcc/testsuite/gfortran.dg/init_flag_4.f90
+++ b/gcc/testsuite/gfortran.dg/init_flag_4.f90
@@ -1,5 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-finit-real=inf" }
+! { dg-options "-finit-real=inf -mieee" { target alpha*-*-* } } */
 
 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 51dbd16cfba0d041f6f692416d55dbbca74eb41e..5531251b00fc07185563756ed129d57305bb10ad 100644 (file)
--- a/gcc/testsuite/gfortran.dg/init_flag_5.f90
+++ b/gcc/testsuite/gfortran.dg/init_flag_5.f90
@@ -1,5 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-finit-real=-inf" }
+! { dg-options "-finit-real=-inf -mieee" { target alpha*-*-* } } */
 
 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 bed7c6ab02a34383f5aabb6d23d25d8e81134224..77ef84c2e9267f37c8aac84b9f5d951094c386b7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/integer_exponentiation_1.f90
+++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_1.f90
@@ -1,4 +1,5 @@
 ! { dg-do run }
+! { dg-options "-pedantic -mieee" { target alpha*-*-* } }
 ! 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 07127c6aa4e61549425a1038e0bb7c0a6c86633c..2fc8df35c3fa416276852f2456a9a8748776fe17 100644 (file)
--- a/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90
+++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_5.F90
@@ -1,5 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-fno-range-check" }
+! { dg-options "-fno-range-check -mieee" { target alpha*-*-* } } */
 module mod_check
   implicit none
 

diff --git a/gcc/testsuite/gfortran.dg/isnan_1.f90 b/gcc/testsuite/gfortran.dg/isnan_1.f90
index db8f5695cdf979fc9426e339b285c07b70191a2b..3c0cce8d378da5d13b0c380fe0bc096f20d4f11a 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 sh*-*-* } }
+! { dg-options "-pedantic-errors -mieee" { target alpha*-*-* sh*-*-* } }
 !
   implicit none
   real :: x

diff --git a/gcc/testsuite/gfortran.dg/isnan_2.f90 b/gcc/testsuite/gfortran.dg/isnan_2.f90
index e16ce9de101ac0932073c34065cbd38dd918469a..37b53633fa7820edef4e57a233a3ae045a89d006 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 sh*-*-* } }
+! { dg-options "-fno-range-check -pedantic-errors -mieee" { target alpha*-*-* sh*-*-* } }
 !
   implicit none
   character(len=1) :: s

diff --git a/gcc/testsuite/gfortran.dg/module_nan.f90 b/gcc/testsuite/gfortran.dg/module_nan.f90
index 956b90c49d48ab066de2f41e5aebbca63b4b3083..52fa8a9f77d5cbece0d5e3bb21df4cbb9995c763 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 sh*-*-* } }
+! { dg-options "-fno-range-check -mieee" { target alpha*-*-* sh*-*-* } }
 !
 ! PR fortran/34318
 !

diff --git a/gcc/testsuite/gfortran.dg/namelist_42.f90 b/gcc/testsuite/gfortran.dg/namelist_42.f90
index 55dd2caec5df966c46d7a80db492b6f2d3af221f..1aa75ab4b41cda23b75dee989a66427cfe3ca750 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 sh*-*-* } }
+! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } }
 !
 ! PR fortran/34427
 !

diff --git a/gcc/testsuite/gfortran.dg/namelist_43.f90 b/gcc/testsuite/gfortran.dg/namelist_43.f90
index abad355b9ae68f68391b128aa512ed41cf7e1cb4..ad518dd126fa1afce46a125e6b69c7666591b842 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 { target fd_truncate } }
-! { dg-options "-mieee" { target sh*-*-* } }
+! { dg-options "-mieee" { target alpha*-*-* sh*-*-* } }
 !
 ! PR fortran/34427
 !

diff --git a/gcc/testsuite/gfortran.dg/nan_1.f90 b/gcc/testsuite/gfortran.dg/nan_1.f90
index 0c9eb0435cf93d47ea1f0945ab457cc873f7cb2d..6b7e19f8060d684c6138b256da4224de53aea4aa 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 sh*-*-* } } 
+! { dg-options "-pedantic-errors -mieee" { target alpha*-*-* sh*-*-* } } 
 !
 module aux2
   interface isnan

diff --git a/gcc/testsuite/gfortran.dg/nan_2.f90 b/gcc/testsuite/gfortran.dg/nan_2.f90
index 49e1c39610ca7611300499ef7e0737183073133b..30987715f36a0643a7b727d6747a5c1c71f13ffc 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 sh*-*-* } }
+! { dg-options "-fno-range-check -pedantic -mieee" { target alpha*-*-* sh*-*-* } }
 !
 ! PR fortran/34333
 !

diff --git a/gcc/testsuite/gfortran.dg/nan_3.f90 b/gcc/testsuite/gfortran.dg/nan_3.f90
index 957b94d214d346651428a69fc35840da027d35dd..adc927674b95a7df55f88bff4366dd309c90914a 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 sh*-*-* } }
+! { dg-options "-fno-range-check -mieee" { target alpha*-*-* sh*-*-* } }
 !
 ! PR fortran/34319
 !

diff --git a/gcc/testsuite/gfortran.dg/nan_4.f90 b/gcc/testsuite/gfortran.dg/nan_4.f90
index 771aad02fa95e94ef23dec2f1446546384b1b08e..7c37671efef0ca6eee08ef075728846a4e92432f 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 sh*-*-* } } 
+! { dg-options "-std=gnu -mieee" { target alpha*-*-* sh*-*-* } } 
 !
 ! PR fortran/34398.
 !

diff --git a/gcc/testsuite/gfortran.dg/nearest_1.f90 b/gcc/testsuite/gfortran.dg/nearest_1.f90
index c80f3a6bc2d8095ce1a7b48b46f524c84aaa30e4..64e2b8524fc059c0105b5f214fe946c468ef4b7d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nearest_1.f90
+++ b/gcc/testsuite/gfortran.dg/nearest_1.f90
@@ -1,5 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-O0 -ffloat-store" }
+! { dg-options "-O0 -ffloat-store -mieee" { target alpha*-*-* } }
 ! PR fortran/27021
 ! Original code submitted by Dominique d'Humieres
 ! Converted to Dejagnu for the testsuite by Steven G. Kargl

diff --git a/gcc/testsuite/gfortran.dg/nearest_2.f90 b/gcc/testsuite/gfortran.dg/nearest_2.f90
index 08c774469cccf2bbde2a58ed2cbec211c88f829f..8bb47687015db93f7eca270e7d655006696b2a3d 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 sh*-*-* } }
+! { dg-options "-fno-range-check -mieee" { target alpha*-*-* sh*-*-* } }
 !
 ! PR fortran/34192
 !

diff --git a/gcc/testsuite/gfortran.dg/nearest_3.f90 b/gcc/testsuite/gfortran.dg/nearest_3.f90
index 4262a8cb06b8d5a3cce6195bb71d9d21196a2863..3af4cfc34d26f1181e944a827d8a58cc8e062a0c 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 sh*-*-* } } 
+! { dg-options "-pedantic-errors -mieee" { target alpha*-*-* sh*-*-* } } 
 !
 ! PR fortran/34209
 !

diff --git a/gcc/testsuite/gfortran.dg/pr37243.f b/gcc/testsuite/gfortran.dg/pr37243.f
index 143800c5e75c035ad86c2db33b9b37da63da5beb..ba6521225581f70440ac35952706d3ac656bc5e7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr37243.f
+++ b/gcc/testsuite/gfortran.dg/pr37243.f
@@ -1,5 +1,6 @@
 ! PR rtl-optimization/37243
 ! { dg-do run }
+! { dg-options "-mieee" { target alpha*-*-* } }
 ! 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 a05986fcb8f87f8cca83b8bedebf9a3c85e455f1..90e82087bb488a2e3379723ff10b7f2d4722333e 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 sh*-*-* } }
+!{ dg-options "-fno-range-check -mieee" { target alpha*-*-* sh*-*-* } }
 ! PR19310 and PR19904, allow disabling range check during compile.
 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 program main

diff --git a/gcc/testsuite/gfortran.dg/transfer_simplify_2.f90 b/gcc/testsuite/gfortran.dg/transfer_simplify_2.f90
index 96bf283f0366b83bd042f2593ed25e362d025692..dbad84e1ae1e380d0b18f01a7f6a38111d1bcdee 100644 (file)
--- a/gcc/testsuite/gfortran.dg/transfer_simplify_2.f90
+++ b/gcc/testsuite/gfortran.dg/transfer_simplify_2.f90
@@ -1,5 +1,6 @@
 ! { dg-do run }
 ! { dg-options "-O2" }
+! { dg-options "-O2 -mieee" { target alpha*-*-* } }
 ! 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/gfortran.fortran-torture/execute/intrinsic_spacing.x b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.x
new file mode 100644 (file)
index 0000000..dad399d
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.x
@@ -0,0 +1,2 @@
+add-ieee-options
+return 0