diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-06-26 13:48:55 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-06-26 13:48:55 +0200 |
| commit | 0ff0dfbf18bc964cf71b64dc6f1f1298bea12d04 (patch) | |
| tree | ca81227af63fdf3b92639bbe4738863f47220ab2 /gcc/fortran/parse.c | |
| parent | e9e4d4ee5bd8785e26bc03f932ffbcfd6b19b918 (diff) | |
| download | gcc-0ff0dfbf18bc964cf71b64dc6f1f1298bea12d04.zip gcc-0ff0dfbf18bc964cf71b64dc6f1f1298bea12d04.tar.gz gcc-0ff0dfbf18bc964cf71b64dc6f1f1298bea12d04.tar.bz2 | |
Andrew Vaught <andyv@firstinter.net>
2004-06-25 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Andrew Vaught <andyv@firstinter.net>
PR fortran/15190
* decl.c (gfc_match_type_spec), io.c (match_io), parse.c
(decode_statement): Enforce required space in free-form.
Co-Authored-By: Andrew Vaught <andyv@firstinter.net>
From-SVN: r83708
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 8b8aa5a..3983db7 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -177,7 +177,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': @@ -206,7 +206,7 @@ decode_statement (void) if (gfc_match_end (&st) == MATCH_YES) return st; - match ("entry", gfc_match_entry, ST_ENTRY); + match ("entry% ", gfc_match_entry, ST_ENTRY); match ("equivalence", gfc_match_equivalence, ST_EQUIVALENCE); match ("external", gfc_match_external, ST_ATTR_DECL); break; @@ -229,7 +229,7 @@ decode_statement (void) break; case 'm': - match ("module% procedure", gfc_match_modproc, ST_MODULE_PROC); + match ("module% procedure% ", gfc_match_modproc, ST_MODULE_PROC); match ("module", gfc_match_module, ST_MODULE); break; @@ -273,7 +273,7 @@ decode_statement (void) break; case 'u': - match ("use", gfc_match_use, ST_USE); + match ("use% ", gfc_match_use, ST_USE); break; case 'w': |