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

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

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 ();
}

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 ();
}