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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index b2efca9b9f6b51ddc4a52b60068ee9419b4654ca..61ed8d1626b14271f4a0a2dd98016a74a651dbca 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+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.
+
 2008-03-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR libfortran/32972

diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c
index 77760b463d9ef5dad73b39320be88c3963086d78..188c75b589ffbcf2ce3b21fafdbcd7f0af787cdb 100644 (file)
--- 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