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

libgfortran/ChangeLog

 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
 	* Makefile.am:  Add new variable, i_pack_c, containing
 	pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, pack_i16.c,
 	pack_r4.c, pack_r8.c, pack_r10.c, pack_r16.c, pack_c4.c,

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