diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-03-21 15:33:13 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-03-21 15:33:13 +0000 |
| commit | 36240d3d4b9b91933abe260a4e8f241a70a08abf (patch) | |
| tree | cbef24f33462befb64d9f8e7d9557f08343b67ab /libgfortran/intrinsics/pack_generic.c | |
| parent | 3ef2513a1d3a2497773f9aa37ac1242e88df8652 (diff) | |
| download | gcc-36240d3d4b9b91933abe260a4e8f241a70a08abf.tar.gz | |
re PR libfortran/32972 (performance of pack/unpack)
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.
From-SVN: r133428
Diffstat (limited to 'libgfortran/intrinsics/pack_generic.c')
| -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 |