fortran/31471
authortobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 12 Apr 2007 18:07:09 +0000 (18:07 +0000)
committertobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 12 Apr 2007 18:07:09 +0000 (18:07 +0000)
commit0d0ce41538b339872bb315ea88be4853d61da827
treecd6e32a845d732e339b5c424410684c412ab5248
parenta8a393cb0158c06dce628abc98308b357965f3b4
    fortran/31471
fortran/
* decl.c (gfc_match_end): Also check for construct name in END
FORALL and END WERE statements.
* match.c (match_case_eos): Use uppercase for statement name in
error message.
(match_elsewhere): Construct name may appear iff construct has a
name.
testsuite/
* gfortran.dg/block_name_1.f90: New.
* gfortran.dg/block_name_2.f90: New.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123758 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/decl.c
gcc/fortran/match.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/block_name_1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/block_name_2.f90 [new file with mode: 0644]