diff mbox series

[Committed] Fix Fortran testsuite failures

Message ID 20180521192147.GA57522@troutmask.apl.washington.edu
State New
Headers show
Series [Committed] Fix Fortran testsuite failures | expand

Commit Message

Steve Kargl May 21, 2018, 7:21 p.m. UTC 
I've committed the attached patch, which fixes a few testsuite
failures related to changes in how gfortran handles legacy code.

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.

PS: Yes, I forgot a ChangLog entry.  I'll commit that in a minute.
diff mbox series

Patch

Index: gcc/testsuite/gfortran.dg/graphite/block-2.f
===================================================================
--- gcc/testsuite/gfortran.dg/graphite/block-2.f	(revision 260479)
+++ gcc/testsuite/gfortran.dg/graphite/block-2.f	(working copy)
@@ -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)
 
Index: gcc/testsuite/gfortran.dg/graphite/id-19.f
===================================================================
--- gcc/testsuite/gfortran.dg/graphite/id-19.f	(revision 260479)
+++ gcc/testsuite/gfortran.dg/graphite/id-19.f	(working copy)
@@ -1,3 +1,5 @@ 
+! { dg-do compile }
+! { dg-options "-std=legacy" }
       SUBROUTINE ECCODR(FPQR)
       DIMENSION FPQR(25,25,25)
       INTEGER P,Q,R
Index: gcc/testsuite/gfortran.dg/graphite/id-20.f
===================================================================
--- gcc/testsuite/gfortran.dg/graphite/id-20.f	(revision 260479)
+++ gcc/testsuite/gfortran.dg/graphite/id-20.f	(working copy)
@@ -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
Index: gcc/testsuite/gfortran.dg/graphite/id-27.f90
===================================================================
--- gcc/testsuite/gfortran.dg/graphite/id-27.f90	(revision 260479)
+++ gcc/testsuite/gfortran.dg/graphite/id-27.f90	(working copy)
@@ -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),     &
Index: gcc/testsuite/gfortran.dg/graphite/pr82449.f
===================================================================
--- gcc/testsuite/gfortran.dg/graphite/pr82449.f	(revision 260479)
+++ gcc/testsuite/gfortran.dg/graphite/pr82449.f	(working copy)
@@ -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)