diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-21 15:33:13 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-21 15:33:13 +0000 |
| commit | b430a09fd77030d7a84f50c3c894940ffc8545ee (patch) | |
| tree | cbef24f33462befb64d9f8e7d9557f08343b67ab /libgfortran/intrinsics | |
| parent | 0c279ba7669ba07c55e2eb7f5460cd05a1e74872 (diff) | |
| download | gcc-b430a09fd77030d7a84f50c3c894940ffc8545ee.tar.gz | |
2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972
* runtime/in_pack_generic.c (internal_pack): Call correct
function, pack_i16, for GFC_INTEGER_16.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133428 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 77760b463d9..188c75b589f 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -347,7 +347,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, #ifdef HAVE_GFC_INTEGER_16 case sizeof (GFC_INTEGER_16): - pack_i1 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array, + pack_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array, (gfc_array_l1 *) mask, (gfc_array_i16 *) vector); return; #endif |