-
- Downloads
re PR fortran/40008 (F2008: Add NEWUNIT= for OPEN statement)
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. From-SVN: r148253
Showing
- libgfortran/ChangeLog 16 additions, 0 deletionslibgfortran/ChangeLog
- libgfortran/io/io.h 8 additions, 0 deletionslibgfortran/io/io.h
- libgfortran/io/open.c 7 additions, 2 deletionslibgfortran/io/open.c
- libgfortran/io/transfer.c 1 addition, 1 deletionlibgfortran/io/transfer.c
- libgfortran/io/unit.c 35 additions, 15 deletionslibgfortran/io/unit.c
- libgfortran/libgfortran.h 1 addition, 0 deletionslibgfortran/libgfortran.h
Loading
Please register or sign in to comment