diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-07-10 23:52:20 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-07-10 23:52:20 +0200 |
| commit | 24727d92ff9cc3f278c3350325aacb4a149a4f26 (patch) | |
| tree | a685485e5068ab2d9d41fe6f80270f58d05dbcad /gcc/fortran/parse.c | |
| parent | f183d3749f9c69305575b1a09a7aacc040742d4b (diff) | |
| download | gcc-24727d92ff9cc3f278c3350325aacb4a149a4f26.zip gcc-24727d92ff9cc3f278c3350325aacb4a149a4f26.tar.gz gcc-24727d92ff9cc3f278c3350325aacb4a149a4f26.tar.bz2 | |
* parse.c (decode_statement): Fix matching of BLOCK DATA.
From-SVN: r84474
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 15a53ea..1295fb0 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -178,7 +178,7 @@ decode_statement (void) case 'b': match ("backspace", gfc_match_backspace, ST_BACKSPACE); - match ("block data% ", gfc_match_block_data, ST_BLOCK_DATA); + match ("block data", gfc_match_block_data, ST_BLOCK_DATA); break; case 'c': |