From a20f0c5030da38aadbc430e05a0509d1b307d616 Mon Sep 17 00:00:00 2001 From: kargl Date: Wed, 15 Nov 2017 18:14:14 +0000 Subject: [PATCH] 2017-11-15 Steven G. Kargl PR fortran/78240 gfortran.dg/pr78240.f90: Prune run-on errors. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@254780 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr78240.f90 | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index fe4520df2af..6a33125c009 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-11-15 Steven G. Kargl + + PR fortran/78240 + gfortran.dg/pr78240.f90: Prune run-on errors. + 2017-11-15 Sudakshina Das * g++.dg/ext/pr57735.C: Add -Wno-return-type for test. diff --git a/gcc/testsuite/gfortran.dg/pr78240.f90 b/gcc/testsuite/gfortran.dg/pr78240.f90 index 76542bfbab2..5373b555a50 100644 --- a/gcc/testsuite/gfortran.dg/pr78240.f90 +++ b/gcc/testsuite/gfortran.dg/pr78240.f90 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-options "-w" } ! ! PR fortran/78240 ! @@ -8,5 +9,7 @@ ! program p - integer x(n) /1/ ! { dg-error "Nonconstant array" } + integer x(n) /1/ ! { dg-error "cannot appear in the expression" } end +! { dg-prune-output "module or main program" } +! { dg-prune-output "Nonconstant array" } -- 2.11.4.GIT