From ea81ff50fdffd9f5891900649ee7330ade896799 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 21 May 2018 19:19:25 +0000 Subject: [PATCH] block-2.f: Adjust testcase for new gfortran warnings for deleted and obsolescent features. 2018-05-21 Steven G. Kargl * 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 --- gcc/testsuite/gfortran.dg/graphite/block-2.f | 2 ++ gcc/testsuite/gfortran.dg/graphite/id-19.f | 2 ++ gcc/testsuite/gfortran.dg/graphite/id-20.f | 2 +- gcc/testsuite/gfortran.dg/graphite/id-27.f90 | 3 ++- gcc/testsuite/gfortran.dg/graphite/pr82449.f | 2 +- 5 files changed, 8 insertions(+), 3 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/graphite/block-2.f b/gcc/testsuite/gfortran.dg/graphite/block-2.f index 1789af5cf6b..4e479f3616b 100644 --- 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 e05f764b294..2001f9fb54c 100644 --- 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 795cb1b9209..d31360d8eeb 100644 --- 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 e1e7ec0951f..0a186871ec8 100644 --- 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 974ea206d41..641ed7440ad 100644 --- 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) -- 2.30.2