From 4d863c77f8fb3ee51a8d630fabdedc87f7a22b30 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Wed, 2 Jun 2010 05:02:07 +0000 Subject: [PATCH] 2010-06-01 Jerry DeLisle PR fortran/44371 * gfortran.dg/error_stop_2.f08: Minor update. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160135 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/error_stop_2.f08 | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 19452bbb1509..cbda12be2229 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-06-01 Jerry DeLisle + + PR fortran/44371 + * gfortran.dg/error_stop_2.f08: Minor update. + 2010-06-01 Jerry DeLisle PR fortran/44371 diff --git a/gcc/testsuite/gfortran.dg/error_stop_2.f08 b/gcc/testsuite/gfortran.dg/error_stop_2.f08 index be0255a89c5c..8e3e71159800 100644 --- a/gcc/testsuite/gfortran.dg/error_stop_2.f08 +++ b/gcc/testsuite/gfortran.dg/error_stop_2.f08 @@ -4,6 +4,7 @@ character(1) c, y y = 'y' read(y,*) c + if (c=='x') stop; if (c=='X') stop if (c=='x') stop size(i); if (c=='X') stop if (c=='y') stop size(i) if (c=='Y') stop ! { dg-error "Syntax error in STOP" } -- 2.47.2