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
