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
This commit is contained in:
Francois-Xavier Coudert 2005-07-31 09:30:34 +02:00 committed by François-Xavier Coudert
parent 41500b747d
commit d4d145acd4
2 changed files with 8 additions and 1 deletions

View File

@ -1,3 +1,9 @@
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

View File

@ -1,5 +1,5 @@
/* 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 ();
}