From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Wed, 19 Mar 2008 16:56:22 +0000 (+0000)
Subject: re PR libfortran/32972 (performance of pack/unpack)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2f3b8279bf70fcd8c74b911c9d6d953bc1edd06e;p=gcc.git

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
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index baa99e2af2a..6a1865e0278 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+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
diff --git a/libgfortran/runtime/in_pack_generic.c b/libgfortran/runtime/in_pack_generic.c
index ff02ec1d372..067cd280e08 100644
--- a/libgfortran/runtime/in_pack_generic.c
+++ b/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;