FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/23178 (Undefined symbol: __gfortran_flush_i8)

Browse source 
PR libfortran/23178
	* intrinsics/flush.c (flush_i8): Add function flush_i8. Update
	copyright years.

From-SVN: r102641
This commit is contained in:
François-Xavier Coudert 2005-08-01 21:13:39 +00:00
parent 75735872fa
commit 5e9d09007d
3 changed files with 32 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,7 +1,7 @@
2005-07-31 Jerry DeLisle <jvdelisle@verizon.net>
* intrinsic.texi: Add documentation for exponent, floor, and fnum and
fix description of ceiling in index.
* intrinsic.texi: Add documentation for exponent, floor, and fnum and
fix description of ceiling in index.
2005-07-31 Steven Bosscher <stevenb@suse.de>

6
libgfortran/ChangeLog
View file

@ -1,3 +1,9 @@
2005-08-01 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/23178
* intrinsics/flush.c (flush_i8): Add function flush_i8. Update
copyright years.
2005-07-31 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/21787

25
libgfortran/intrinsics/flush.c
View file

@ -1,5 +1,5 @@
/* Implementation of the FLUSH intrinsic.
Copyright (C) 2004 Free Software Foundation, Inc.
Copyright (C) 2004, 2005 Free Software Foundation, Inc.
Contributed by Steven G. Kargl <kargls@comcast.net>.
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -75,3 +75,26 @@ flush_i4 (GFC_INTEGER_4 *unit)
flush (us->s);
}
}
extern void flush_i8 (GFC_INTEGER_8 *);
export_proto(flush_i8);
void
flush_i8 (GFC_INTEGER_8 *unit)
{
gfc_unit *us;
/* flush all streams */
if (unit == NULL)
{
us = g.unit_root;
recursive_flush(us);
}
else
{
us = find_unit(*unit);
if (us != NULL)
flush (us->s);
}
}