stop.c (stop_string,error_stop_string): Minor cleanup.

2011-05-22  Tobias Burnus  <burnus@net-b.de>

        * runtime/stop.c (stop_string,error_stop_string): Minor cleanup.

From-SVN: r174039

libgfortran/ChangeLog

+2011-05-22  Tobias Burnus  <burnus@net-b.de>
+
+	* runtime/stop.c (stop_string,error_stop_string): Minor cleanup.
+
 2011-05-22  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	PR libfortran/48931

libgfortran/runtime/stop.c

@@ -67,8 +67,7 @@ stop_string (const char *string, GFC_INTEGER_4 len)
   if (string)
     {
       estr_write ("STOP ");
-      ssize_t w = write (STDERR_FILENO, string, len);
-      (void) sizeof (w); /* Avoid compiler warning about not using w.  */
+      (void) write (STDERR_FILENO, string, len);
       estr_write ("\n");
     }
   exit (0);
@@ -88,8 +87,7 @@ void
 error_stop_string (const char *string, GFC_INTEGER_4 len)
 {
   estr_write ("ERROR STOP ");
-  ssize_t w = write (STDERR_FILENO, string, len);
-  (void) sizeof (w); /* Avoid compiler warning about not using w.  */
+  (void) write (STDERR_FILENO, string, len);
   estr_write ("\n");
 
   exit (1);