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/match.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/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 22a0263..87737fc 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -1074,6 +1074,7 @@ gfc_match_if (gfc_statement * if_type) match ("deallocate", gfc_match_deallocate, ST_DEALLOCATE) match ("end file", gfc_match_endfile, ST_END_FILE) match ("exit", gfc_match_exit, ST_EXIT) + match ("flush", gfc_match_flush, ST_FLUSH) match ("forall", match_simple_forall, ST_FORALL) match ("go to", gfc_match_goto, ST_GOTO) match ("if", match_arithmetic_if, ST_ARITHMETIC_IF) |