This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch, fortran, 4.0] resolve iostat for filepos statements
- From: Thomas Koenig <Thomas dot Koenig at online dot de>
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Fri, 9 Sep 2005 21:48:31 +0200
- Subject: [patch, fortran, 4.0] resolve iostat for filepos statements
Committed as obvious on 4.0 (part of the iomsg patch) after
regression-testing.
Thomas
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* io.c (gfc_resolve_filepos): Also resolve iostat.
Index: io.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/io.c,v
retrieving revision 1.19.10.10
diff -c -p -r1.19.10.10 io.c
*** io.c 4 Sep 2005 12:25:22 -0000 1.19.10.10
--- io.c 9 Sep 2005 19:42:00 -0000
*************** gfc_resolve_filepos (gfc_filepos * fp)
*** 1439,1444 ****
--- 1439,1445 ----
{
RESOLVE_TAG (&tag_unit, fp->unit);
+ RESOLVE_TAG (&tag_iostat, fp->iostat);
if (gfc_reference_st_label (fp->err, ST_LABEL_TARGET) == FAILURE)
return FAILURE;