diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-06-07 18:57:43 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-06-07 18:57:43 +0000 |
| commit | 9ad55c33ae2d0c410fbc563fd59e8edb37a48b8b (patch) | |
| tree | e2b0715b914cdb097c8b193771d9487252906c00 /libgfortran | |
| parent | 690aefeba465a8fc85b779fa56d24ad892f17281 (diff) | |
| download | gcc-9ad55c33ae2d0c410fbc563fd59e8edb37a48b8b.zip gcc-9ad55c33ae2d0c410fbc563fd59e8edb37a48b8b.tar.gz gcc-9ad55c33ae2d0c410fbc563fd59e8edb37a48b8b.tar.bz2 | |
re PR fortran/40008 (F2008: Add NEWUNIT= for OPEN statement)
2009-05-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/40008
* gfortran.h (gfc_open): Add newunit expression to structure.
* io.c (io_tag): Add new unit tag and fix whitespace.
(match_open_element): Add matching for newunit.
(gfc_free_open): Free the newunit expression.
(gfc_resolve_open): Add newunit to resolution and check constraints.
(gfc_resolve_close): Add check for non-negative unit.
(gfc_resolve_filepos): Likewise.
(gfc_resolve_dt): Likewise.
* trans-io.c (set_parameter_value): Build runtime checks for unit
numbers within range of kind=4 integer. (gfc_trans_open) Set the
newunit parameter.
* ioparm.def (IOPARM): Define the newunit parameter as a pointer
to GFC_INTEGER_4, pint4.
From-SVN: r148252
Diffstat (limited to 'libgfortran')
0 files changed, 0 insertions, 0 deletions