[gfortran, committed] Fix nameless BLOCK DATA

[gfortran, committed] Fix nameless BLOCK DATA

[Tobias Schlüter]

A minor glitch in the previous fix to the matchers broke BLOCK DATA,
because we required a space, where it is not necessary.

Fixed by below, tested on i686-pc-linux, committed as obvious.

- Tobi

Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/ChangeLog,v
retrieving revision 1.111
diff -u -p -r1.111 ChangeLog
--- ChangeLog   10 Jul 2004 17:30:40 -0000      1.111
+++ ChangeLog   10 Jul 2004 21:48:28 -0000
@@ -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
Index: parse.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/parse.c,v
retrieving revision 1.11
diff -u -p -r1.11 parse.c
--- parse.c     3 Jul 2004 23:25:45 -0000       1.11
+++ parse.c     10 Jul 2004 21:48:28 -0000
@@ -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':