diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-21 21:00:17 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-21 21:00:17 +0000 |
| commit | 042a12f4e88525f8438f47b149415f0d035c40fc (patch) | |
| tree | e901939daac411f7c9885ae1d09aa6779ef2e200 | |
| parent | f03f16b2b3e23cc54aa689c786037123ac8c9094 (diff) | |
| download | gcc-042a12f4e88525f8438f47b149415f0d035c40fc.zip gcc-042a12f4e88525f8438f47b149415f0d035c40fc.tar.gz gcc-042a12f4e88525f8438f47b149415f0d035c40fc.tar.bz2 | |
pack_generic.c: Fix typo.
2008-03-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* intrinsics/pack_generic.c: Fix typo.
From-SVN: r133437
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/intrinsics/pack_generic.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index bc768df..c2bf6ca 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2008-03-21 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * intrinsics/pack_generic.c: Fix typo. + 2008-03-21 Janne Blomqvist <jb@gcc.gnu.org> * gfortran.map: Move erfc_scaled symbols to new symbol node diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 188c75b..2bd0991 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -400,7 +400,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, #endif #ifdef HAVE_GFC_COMPLEX_16 - case sizeof (GFC_REAL_16): + case sizeof (GFC_COMPLEX_16): pack_c16 ((gfc_array_c16 *) ret, (gfc_array_c16 *) array, (gfc_array_l1 *) mask, (gfc_array_c16 *) vector); return; |