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/io.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/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index ee52c69..048f6f8 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -2046,7 +2046,7 @@ match_io (io_kind k) gfc_code *io_code; gfc_symbol *sym; gfc_expr *expr; - int comma_flag; + int comma_flag, c; locus where; gfc_dt *dt; match m; @@ -2059,6 +2059,16 @@ match_io (io_kind k) if (k == M_WRITE) goto syntax; + if (gfc_current_form == FORM_FREE) + { + c = gfc_peek_char(); + if (c != ' ' && c != '*' && c != '\'' && c != '"') + { + m = MATCH_NO; + goto cleanup; + } + } + m = match_dt_format (dt); if (m == MATCH_ERROR) goto cleanup; |