diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-07 19:00:47 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-07 19:00:47 +0000 |
| commit | a94069bf4af06090eebabc68ed4a860f5b343301 (patch) | |
| tree | a644300144767eca9a438e4638477cda691850c5 /libgfortran/libgfortran.h | |
| parent | 82b12af70c15f25bf9c1d3b761069473ee169888 (diff) | |
| download | gcc-a94069bf4af06090eebabc68ed4a860f5b343301.tar.gz | |
2009-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/40008
* libgfortran.h: Define IOPARM_OPEN_HAS_NEWUNIT.
* io/open.c (st_open): Don't error on negative unit number if NEWUNIT
was specified. If NEWUNIT is specified, call new function to get the
unique unit number and assign it.
* io/io.h (st_parameter_open): Add pointer to newunit. Add prototype for
next_available_newunit. Add prototype for new function,
get_unique_unit_number.
* io/unit.c: Declare next_available_newunit. Define the first newunit
number. (init_units): Initialize next_available_unit.
(get_unique_unit_number): New function. Fix whitespace and comments.
* io/transfer.c (data_transfer_init): Update error message to not be
specific to OPEN statements.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148253 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index 3591fa9c279..a2f3e0623d2 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -590,6 +590,7 @@ st_parameter_common; #define IOPARM_OPEN_HAS_ROUND (1 << 20) #define IOPARM_OPEN_HAS_SIGN (1 << 21) #define IOPARM_OPEN_HAS_ASYNCHRONOUS (1 << 22) +#define IOPARM_OPEN_HAS_NEWUNIT (1 << 23) /* library start function and end macro. These can be expanded if needed in the future. cmp is st_parameter_common *cmp */ |