block-2.f: Adjust testcase for new gfortran warnings for deleted and obsolescent...

2018-05-21  Steven G. Kargl  <kargl@gcc.gnu.org>

	* gfortran.dg/graphite/block-2.f: Adjust testcase for new gfortran
   	warnings for deleted and obsolescent features.
	* gfortran.dg/graphite/id-19.f: Ditto.
	* gfortran.dg/graphite/id-20.f: Ditto.
	* gfortran.dg/graphite/id-27.f90: Ditto.
	* gfortran.dg/graphite/pr82449.f: Ditto.

From-SVN: r260480

diff --git a/gcc/testsuite/gfortran.dg/graphite/block-2.f b/gcc/testsuite/gfortran.dg/graphite/block-2.f
index 1789af5cf6b59e165484cf1ad9397866788c52f4..4e479f3616bcf9e4054cdeb532219e9a9b96b7ad 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/block-2.f
+++ b/gcc/testsuite/gfortran.dg/graphite/block-2.f
@@ -1,3 +1,5 @@
+! { dg-do compile }
+! { dg-options "-std=legacy" }
       SUBROUTINE MATRIX_MUL_UNROLLED (A, B, C, L, M, N)
       DIMENSION A(L,M), B(M,N), C(L,N)
 

diff --git a/gcc/testsuite/gfortran.dg/graphite/id-19.f b/gcc/testsuite/gfortran.dg/graphite/id-19.f
index e05f764b294a87480d8cd7dec4b103229c958a7a..2001f9fb54cd9a015fe26668afd0977e08f6ef1a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/id-19.f
+++ b/gcc/testsuite/gfortran.dg/graphite/id-19.f
@@ -1,3 +1,5 @@
+! { dg-do compile }
+! { dg-options "-std=legacy" }
       SUBROUTINE ECCODR(FPQR)
       DIMENSION FPQR(25,25,25)
       INTEGER P,Q,R

diff --git a/gcc/testsuite/gfortran.dg/graphite/id-20.f b/gcc/testsuite/gfortran.dg/graphite/id-20.f
index 795cb1b9209f11e03d298d6fc49a905155fcea42..d31360d8eebb2668e71969db12279e828d6dc6e6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/id-20.f
+++ b/gcc/testsuite/gfortran.dg/graphite/id-20.f
@@ -1,4 +1,4 @@
-! { dg-options "-O3 -ffast-math" }
+! { dg-options "-O3 -ffast-math -std=legacy" }
 
       DIMENSION FPQR(25,25,25)
       INTEGER P,Q,R

diff --git a/gcc/testsuite/gfortran.dg/graphite/id-27.f90 b/gcc/testsuite/gfortran.dg/graphite/id-27.f90
index e1e7ec0951faa51da01f9d61114237affe12ac10..0a186871ec8ed5d404169a7f9dd0f9630198bc47 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/id-27.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/id-27.f90
@@ -1,4 +1,5 @@
-! { dg-additional-options "-Ofast" }
+! { dg-do compile }
+! { dg-additional-options "-Ofast -std=legacy" }
 MODULE module_ra_gfdleta
       INTEGER, PARAMETER              :: NBLY=15
       REAL   , SAVE :: EM1(28,180),EM1WDE(28,180),TABLE1(28,180),     &

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr82449.f b/gcc/testsuite/gfortran.dg/graphite/pr82449.f
index 974ea206d411c5e8bc3cfb70b294f9ed1c7c5212..641ed7440add496e878f9f8f887b5338cb3210f5 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr82449.f
+++ b/gcc/testsuite/gfortran.dg/graphite/pr82449.f
@@ -1,5 +1,5 @@
 ! { dg-do compile }
-! { dg-options "-O2 -floop-nest-optimize" }
+! { dg-options "-O2 -floop-nest-optimize -std=legacy" }
 
       SUBROUTINE JDFIDX(MKL,KGSH)
       DIMENSION MKL(6,6)