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

libgfortran/ChangeLog

+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

libgfortran/io/close.c

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

libgfortran/io/file_pos.c

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