diff options
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/pr78240.f90 | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index fe4520d..6a33125 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-11-15 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/78240 + gfortran.dg/pr78240.f90: Prune run-on errors. + 2017-11-15 Sudakshina Das <sudi.das@arm.com> * 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 76542bf..5373b55 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" } |