From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Sat, 10 Jul 2004 21:52:20 +0000 (+0200)
Subject: * parse.c (decode_statement): Fix matching of BLOCK DATA.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=24727d92ff9cc3f278c3350325aacb4a149a4f26;p=gcc.git

* parse.c (decode_statement): Fix matching of BLOCK DATA.

From-SVN: r84474
---

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  <tobias.schlueter@physik.uni-muenchen.de>
 
 	* 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':