This is the mail archive of the
gcc-cvs@gcc.gnu.org
mailing list for the GCC project.
r148253 - in /trunk/libgfortran: ChangeLog io/i...
- From: jvdelisle at gcc dot gnu dot org
- To: gcc-cvs at gcc dot gnu dot org
- Date: Sun, 07 Jun 2009 19:00:47 -0000
- Subject: r148253 - in /trunk/libgfortran: ChangeLog io/i...
Author: jvdelisle
Date: Sun Jun 7 19:00:47 2009
New Revision: 148253
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=148253
Log:
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.
Modified:
trunk/libgfortran/ChangeLog
trunk/libgfortran/io/io.h
trunk/libgfortran/io/open.c
trunk/libgfortran/io/transfer.c
trunk/libgfortran/io/unit.c
trunk/libgfortran/libgfortran.h