re PR libfortran/21787 (flush I/O before calling abort())

PR libfortran/21787 * intrinsics/abort.c (abort): Close units before aborting. Updated copyright years. From-SVN: r102600

re PR libfortran/21787 (flush I/O before calling abort())
PR libfortran/21787 * intrinsics/abort.c (abort): Close units before aborting. Updated copyright years. From-SVN: r102600
d4d145ac · Francois-Xavier Coudert · François-Xavier Coudert · 41500b74 · d4d145ac · d4d145ac
Commit d4d145ac authored Jul 31, 2005 by Francois-Xavier Coudert Committed by François-Xavier Coudert Jul 31, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 1 deletions

libgfortran/ChangeLog
+6 -0

libgfortran/intrinsics/abort.c
+2 -1

No files found.
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
+2005-07-31  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR libfortran/21787
+	* intrinsics/abort.c (abort): Close units before aborting.
+	Updated copyright years.
+
 2005-07-30  Francois-Xavier Coudert  <coudert@clipper.ens.fr>

 	PR libfortran/22436

--- a/libgfortran/intrinsics/abort.c
+++ b/libgfortran/intrinsics/abort.c
 /* Implementation of the ABORT intrinsic.
-   Copyright (C) 2003, 2004 Free Software Foundation, Inc.
+   Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.

 This file is part of the GNU Fortran 95 runtime library (libgfortran).

@@ -35,5 +35,6 @@ export_proto_np(PREFIX(abort));

 void PREFIX(abort) (void)
 {
+  close_units ();
  abort ();
 }