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 /gcc/fortran/ioparm.def | |
| 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 'gcc/fortran/ioparm.def')
| -rw-r--r-- | gcc/fortran/ioparm.def | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def index ddef693..7de7a51 100644 --- a/gcc/fortran/ioparm.def +++ b/gcc/fortran/ioparm.def @@ -49,6 +49,7 @@ IOPARM (open, encoding, 1 << 19, char1) IOPARM (open, round, 1 << 20, char2) IOPARM (open, sign, 1 << 21, char1) IOPARM (open, asynchronous, 1 << 22, char2) +IOPARM (open, newunit, 1 << 23, pint4) IOPARM (close, common, 0, common) IOPARM (close, status, 1 << 7, char1) IOPARM (filepos, common, 0, common) |