Forwarding to gcc list since there seems to be a C related problem here as well.
Example code below.
-------- Original Message --------
Subject: Re: Problem compiling NONMEM with mingw gfortran 4.3.0 builds
Date: Sat, 21 Jul 2007 10:13:32 -0700
From: Jerry DeLisle <[EMAIL PROTECTED]>
To: Danny Smith <[EMAIL PROTECTED]>, Fortran List <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Danny,
I experimented with your simple Hello World in C running on Cygwin, writing to
CONOUT$. It does not error out, but does nothing.
On the gfortran side it creates a file named CONOUT$.
I would like to intercept this file name on mingw and cygwin systems and attempt
to map it to stdio in the gfortran runtime library. (band aid fix)
A couple of questions:
1) Is there a #define somewhere that I can use to conditionally compile this
"band aid" just for mingw and cygwin? I have looked in config.h and did not
find anything useful.
2) At least on cygwin, since the example does not work for the C version (I have
not tried mingw, but presume it works there) is there a "system" level fix for
this problem that would be more appropriate?
Best regards,
Jerry
Examples:
$ cat test.c
#include <fcntl.h>
#include <sys/stat.h>
#include <stdlib.h>
int main()
{
int fd= _open ("CONOUT$", _O_RDWR);
if (fd >= 0)
_write (fd, "Hello world", sizeof ("Hello world"));
return 0;
}
$ cat test.f
open(unit=29,file="CONOUT$")
write(29,100)
100 format('Hello, world!')
end
