[Bug fortran/32784] New: Using 'con' as assigned file generates Fortran runtime error: File 'con' does not exist

["steven dot chapel at sbcglobal dot net" <gcc-bugzilla@gcc.gnu.org>]

When this program is compiled and run:

       character*72 fnint
       data fnint /'con'/
       i=index(fnint,' ');
       open(unit=29,file=fnint(1:i-1),status='new')
       write(29,100)
100    format('1Hello, world!')
       end

It generates this error message:

At line 4 of file bug.for (unit = 29, file = '')
Fortran runtime error: File 'con' does not exist

The same error message is generated when status='new' is omitted.

Here is the info for the compiler I used (it's FX's prebuilt mingw binary):

Using built-in specs.
Target: i386-pc-mingw32
Configured with: ../trunk/configure --prefix=/mingw
--enable-languages=c,fortran
 --with-gmp=/home/coudert/local --disable-nls --with-ld=/mingw/bin/ld
--with-as=
/mingw/bin/as --disable-werror --enable-bootstrap --enable-threads
--build=i386-
pc-mingw32 --disable-shared --enable-libgomp
Thread model: win32
gcc version 4.3.0 20070706 (experimental)

I am not able to run NONMEM <http://c255.ucsf.edu/nonmem1.html> built with
gfortran because of this bug.


-- 
           Summary: Using 'con' as assigned file generates Fortran runtime
                    error: File 'con' does not exist
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: major
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: steven dot chapel at sbcglobal dot net


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32784