mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 02:24:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
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

3
libgfortran/intrinsics/abort.c
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 ();
}