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

From-SVN: r84474

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ded551cb2d67dc2b5ce33263ee5f5dcf4f26ea44..fe6c66492935237a05c8771e65da4c46b6b95b05 100644 (file)
--- 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 15a53ea3e457bd59650b62c54a5ab0d60f5ed26c..1295fb0e5f90aa5f377b6fc842684e907bf4306f 100644 (file)
--- 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':