diff options
| author | Janne Blomqvist <jblomqvi@cc.hut.fi> | 2005-08-08 01:56:19 +0300 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-08-07 22:56:19 +0000 |
| commit | 6403ec5ff6aa7436ed28d1cdbfaedd30dec78fbe (patch) | |
| tree | 776ab9ca4e6e1d2bbc7e4ac4d9e56a25dc86106e /gcc/fortran/parse.c | |
| parent | f18faab7c47ea68f493465631d146e2f4a1ecd29 (diff) | |
| download | gcc-6403ec5ff6aa7436ed28d1cdbfaedd30dec78fbe.zip gcc-6403ec5ff6aa7436ed28d1cdbfaedd30dec78fbe.tar.gz gcc-6403ec5ff6aa7436ed28d1cdbfaedd30dec78fbe.tar.bz2 | |
[multiple changes]
2005-08-07 Janne Blomqvist <jblomqvi@cc.hut.fi>
PR fortran/22390
* dump-parse-tree.c (gfc_show_code_node): Add case for FLUSH.
* gfortran.h: Add enums for FLUSH.
* io.c (gfc_free_filepos,match_file_element,match_filepos): Modify
comment appropriately. (gfc_match_flush): New function.
* match.c (gfc_match_if): Add match for flush.
* match.h: Add prototype.
* parse.c (decode_statement): Add flush to 'f' case.
(next_statement): Add case for flush. (gfc_ascii_statement): Likewise.
* resolve.c (resolve_code): Add flush case.
* st.c (gfc_free_statement): Add flush case.
* trans-io.c: Add prototype for flush.
(gfc_build_io_library_fndecls): Build fndecl for flush.
(gfc_trans_flush): New function.
* trans-stmt.h: Add prototype.
* trans.c (gfc_trans_code): Add case for flush.
2005-08-07 Janne Blomqvist <jblomqvi@cc.hut.fi>
PR fortran/22390
* io/backspace.c: File removed, contents moved to ...
* io/endfile.c: Ditto.
* io/rewind.c: Ditto.
* io/file_pos.c: New file, ... here.
* Makefile.am: Add file_pos.c to list, remove obsolete files.
* Makefile.in: Regenerated.
2005-08-07 Janne Blomqvist <jblomqvi@cc.hut.fi>
Steven G. Kargl <kargls@comcast.net>
PR fortran/22390
* gfortran.dg/flush_1.f90: New test.
Co-Authored-By: Steven G. Kargl <kargls@comcast.net>
From-SVN: r102835
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 24e5c99..2894e50 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -212,6 +212,7 @@ decode_statement (void) break; case 'f': + match ("flush", gfc_match_flush, ST_FLUSH); match ("format", gfc_match_format, ST_FORMAT); break; @@ -526,7 +527,8 @@ next_statement (void) case ST_READ: case ST_RETURN: case ST_REWIND: case ST_SIMPLE_IF: \ case ST_PAUSE: case ST_STOP: case ST_WRITE: case ST_ASSIGNMENT: \ case ST_POINTER_ASSIGNMENT: case ST_EXIT: case ST_CYCLE: \ - case ST_ARITHMETIC_IF: case ST_WHERE: case ST_FORALL: case ST_LABEL_ASSIGNMENT + case ST_ARITHMETIC_IF: case ST_WHERE: case ST_FORALL: \ + case ST_LABEL_ASSIGNMENT: case ST_FLUSH /* Statements that mark other executable statements. */ @@ -833,6 +835,9 @@ gfc_ascii_statement (gfc_statement st) case ST_EXIT: p = "EXIT"; break; + case ST_FLUSH: + p = "FLUSH"; + break; case ST_FORALL_BLOCK: /* Fall through */ case ST_FORALL: p = "FORALL"; |