OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

2006-07-25 Jerry DeLisle <jvdelisle@gcc.gnu.org> 

PR libgfortran/258335
	* close.c (st_close): Add error when UNIT does not exist.
	* file_position.c (st_flush): Add error when UNIT does not exist.

From-SVN: r115749
This commit is contained in:
Jerry DeLisle 2006-07-26 01:40:29 +00:00
parent 9116046d96
commit ca8d5bc6c6
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2006-07-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/258335
* close.c (st_close): Add error when UNIT does not exist.
* file_position.c (st_flush): Add error when UNIT does not exist.
2006-07-25 Paolo Bonzini <bonzini@gnu.org>
PR build/26188

4
libgfortran/io/close.c
View File

@ -102,6 +102,8 @@ st_close (st_parameter_close *clp)
unlink (path);
#endif
}
else
generate_error (&clp->common, ERROR_BAD_OPTION,
"Can't find specified UNIT in CLOSE");
library_end ();
}

3
libgfortran/io/file_pos.c
View File

@ -340,6 +340,9 @@ st_flush (st_parameter_filepos *fpp)
flush (u->s);
unlock_unit (u);
}
else
generate_error (&fpp->common, ERROR_BAD_OPTION,
"Can't find specified UNIT in FLUSH");
library_end ();
}