diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-21 21:00:17 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-21 21:00:17 +0000 |
| commit | 3d9a08150b7296400e7185fbe827d05216ec0f61 (patch) | |
| tree | e901939daac411f7c9885ae1d09aa6779ef2e200 /libgfortran/intrinsics | |
| parent | 3594ce9108a1eb9e8539ee3dc81eab1930502d20 (diff) | |
| download | gcc-3d9a08150b7296400e7185fbe827d05216ec0f61.tar.gz | |
2008-03-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* intrinsics/pack_generic.c: Fix typo.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133437 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/pack_generic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 188c75b589f..2bd09913f00 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; |