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 /libgfortran | |
| 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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/flush.c | 25 |
2 files changed, 30 insertions, 1 deletions
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); + } +} |