From 24727d92ff9cc3f278c3350325aacb4a149a4f26 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 10 Jul 2004 23:52:20 +0200 Subject: [PATCH] * parse.c (decode_statement): Fix matching of BLOCK DATA. From-SVN: r84474 --- gcc/fortran/ChangeLog | 2 ++ gcc/fortran/parse.c | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ded551cb2d6..fe6c6649293 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -10,6 +10,8 @@ * trans-expr.c (gfc_conv_structure): Handle initialization of scalar pointer components. + * parse.c (decode_statement): Fix matching of BLOCK DATA. + 2004-07-10 Tobias Schlueter * trans-common.c: Fix whitespace issues, make variable names diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 15a53ea3e45..1295fb0e5f9 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': -- 2.30.2