Commit 24727d92 by Tobias Schlüter Committed by Tobias Schlüter

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

From-SVN: r84474
parent f183d374
...@@ -10,6 +10,8 @@ ...@@ -10,6 +10,8 @@
* trans-expr.c (gfc_conv_structure): Handle initialization * trans-expr.c (gfc_conv_structure): Handle initialization
of scalar pointer components. of scalar pointer components.
* parse.c (decode_statement): Fix matching of BLOCK DATA.
2004-07-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> 2004-07-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* trans-common.c: Fix whitespace issues, make variable names * trans-common.c: Fix whitespace issues, make variable names
......
...@@ -178,7 +178,7 @@ decode_statement (void) ...@@ -178,7 +178,7 @@ decode_statement (void)
case 'b': case 'b':
match ("backspace", gfc_match_backspace, ST_BACKSPACE); 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; break;
case 'c': case 'c':
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment