git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

PR libfortran/62768 Use gfc_unit.filename also when HAVE_TTYNAME{_R} is not defined. 

2014-09-18  Janne Blomqvist  <jb@gcc.gnu.org>

	PR libfortran/62768
	* io/inquire.c (inquire_via_unit): Use gfc_unit.filename also when
	HAVE_TTYNAME{_R} is not defined.

From-SVN: r215338
This commit is contained in:
Janne Blomqvist 2014-09-18 00:44:15 +03:00
parent cadb2b9689
commit 010718fc37
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2014-09-18 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/62768
* io/inquire.c (inquire_via_unit): Use gfc_unit.filename also when
HAVE_TTYNAME{_R} is not defined.
2014-09-17 Janne Blomqvist <jb@gcc.gnu.org> 2014-09-17 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/62768 PR libfortran/62768

4
libgfortran/io/inquire.c
View File

@ -92,9 +92,9 @@ inquire_via_unit (st_parameter_inquire *iqp, gfc_unit * u)
else if (u->unit_number == options.stderr_unit) else if (u->unit_number == options.stderr_unit)
fstrcpy (iqp->name, iqp->name_len, "CONERR$", sizeof("CONERR$")); fstrcpy (iqp->name, iqp->name_len, "CONERR$", sizeof("CONERR$"));
else else
fstrcpy (iqp->name, iqp->name_len, u->file, u->file_len); cf_strcpy (iqp->name, iqp->name_len, u->filename);
#else #else
fstrcpy (iqp->name, iqp->name_len, u->file, u->file_len); cf_strcpy (iqp->name, iqp->name_len, u->filename);
#endif #endif
} }