re PR libfortran/32972 (performance of pack/unpack)

2008-03-19  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/32972
	* runtime/in_pack_generic.c (internal_pack):  Fix typo in
	last commit.

From-SVN: r133345

libgfortran/ChangeLog

 2008-03-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR libfortran/32972
+	* runtime/in_pack_generic.c (internal_pack):  Fix typo in
+	last commit.
+
+2008-03-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR libfortran/32972
 	* Makefile.am (in_pack_c): Add in_pack_i1.c, in_pack_i2.c,
 	in_pack_r4.c, in_pack_r8.c, in_pack_r10.c and in_pack_r16.c.
 	(in_unpack_c): Add in_unpack_i1.c, in_unpack_i2.c,

libgfortran/runtime/in_pack_generic.c

@@ -81,7 +81,7 @@ internal_pack (gfc_array_char * source)
 
 #if defined(HAVE_GFC_INTEGER_16)
 	case sizeof (GFC_INTEGER_16):
-	  return internal_pack_16 (gfc_array_i16 *) source);
+	  return internal_pack_16 ((gfc_array_i16 *) source);
 #endif
 	}
       break;