From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 21 Mar 2008 21:00:17 +0000 (+0000)
Subject: pack_generic.c: Fix typo.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=042a12f4e88525f8438f47b149415f0d035c40fc;p=gcc.git

pack_generic.c: Fix typo.

2008-03-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* intrinsics/pack_generic.c:  Fix typo.

From-SVN: r133437
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index bc768df3309..c2bf6ca8e0d 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	* intrinsics/pack_generic.c:  Fix typo.
+
 2008-03-21  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	* gfortran.map: Move erfc_scaled symbols to new symbol node
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c
index 188c75b589f..2bd09913f00 100644
--- a/libgfortran/intrinsics/pack_generic.c
+++ b/libgfortran/intrinsics/pack_generic.c
@@ -400,7 +400,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array,
 #endif
 
 #ifdef HAVE_GFC_COMPLEX_16
-	case sizeof (GFC_REAL_16):
+	case sizeof (GFC_COMPLEX_16):
 	  pack_c16 ((gfc_array_c16 *) ret, (gfc_array_c16 *) array,
 		    (gfc_array_l1 *) mask, (gfc_array_c16 *) vector);
 	  return;