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:
parent
41500b747d
commit
d4d145acd4
|
@ -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>
|
2005-07-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
||||||
|
|
||||||
PR libfortran/22436
|
PR libfortran/22436
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
/* Implementation of the ABORT intrinsic.
|
/* 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).
|
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)
|
void PREFIX(abort) (void)
|
||||||
{
|
{
|
||||||
|
close_units ();
|
||||||
abort ();
|
abort ();
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue