2011-12-01 Janne Blomqvist <jb@gcc.gnu.org>
* misc.c (gfc_open_file): Don't call stat.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181875
138bc75d-0d04-0410-961f-
82ee72b054a4
+2011-12-01 Janne Blomqvist <jb@gcc.gnu.org>
+
+ * misc.c (gfc_open_file): Don't call stat.
+
2011-11-29 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/40958
FILE *
gfc_open_file (const char *name)
{
- struct stat statbuf;
-
if (!*name)
return stdin;
- if (stat (name, &statbuf) < 0)
- return NULL;
-
- if (!S_ISREG (statbuf.st_mode))
- return NULL;
-
return fopen (name, "r");
}