------- Comment #1 from jpr at csc dot fi 2009-12-18 00:35 -------
or rather this....
Index: unix.c
===================================================================
--- unix.c (revision 155325)
+++ unix.c (working copy)
@@ -781,7 +781,11 @@
static stream *
fd_to_stream (int fd, int prot)
{
+#ifdef __MINGW32__
+ struct _stati64 statbuf;
+#else
struct stat statbuf;
+#endif
unix_stream *s;
s = get_mem (sizeof (unix_stream));
@@ -795,7 +799,11 @@
/* Get the current length of the file. */
+#ifdef __MINGW32__
+ _fstati64 (fd, &statbuf);
+#else
fstat (fd, &statbuf);
+#endif
if (lseek (fd, 0, SEEK_CUR) == (gfc_offset) -1)
s->file_length = -1;
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42420
