diff options
author | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-08-01 21:13:39 +0000 |
---|---|---|
committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-08-01 21:13:39 +0000 |
commit | 5e9d09007dfa95afa0b3cf979a8b36be46174850 (patch) | |
tree | 199f493a016a3d2647046bf2ec33b75ee097e8c5 | |
parent | 75735872fa99db486ceb2a0ac4f098b061dbe240 (diff) | |
download | gcc-5e9d09007dfa95afa0b3cf979a8b36be46174850.zip gcc-5e9d09007dfa95afa0b3cf979a8b36be46174850.tar.gz gcc-5e9d09007dfa95afa0b3cf979a8b36be46174850.tar.bz2 |
re PR libfortran/23178 (Undefined symbol: __gfortran_flush_i8)
PR libfortran/23178
* intrinsics/flush.c (flush_i8): Add function flush_i8. Update
copyright years.
From-SVN: r102641
-rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
-rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
-rw-r--r-- | libgfortran/intrinsics/flush.c | 25 |
3 files changed, 32 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1a04beb..d9e7ec9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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> diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 27bb483..cdd3f11 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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 diff --git a/libgfortran/intrinsics/flush.c b/libgfortran/intrinsics/flush.c index 40335f9..7e1c981 100644 --- a/libgfortran/intrinsics/flush.c +++ b/libgfortran/intrinsics/flush.c @@ -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); + } +} |