From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Mon, 14 Apr 2008 18:50:57 +0000 (+0000)
Subject: re PR libfortran/32972 (performance of pack/unpack)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3a5a8be12000125f4c12efea8bd6a466049a688d;p=gcc.git

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

2008-04-14  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/32972
	* intrinsics/spread_generic.c (spread):  Use spread_i2()
	for GFC_DTYPE_DERIVED_2 (fix typo from previous commit).

From-SVN: r134286
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e228cf6db8c..9fc0476272f 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-04-14  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR libfortran/32972
+	* intrinsics/spread_generic.c (spread):  Use spread_i2()
+	for GFC_DTYPE_DERIVED_2 (fix typo from previous commit).
+
 2008-04-13  Thomas Koenig  <tkoenig@gcc.gnu.org>
 	Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c
index e50598a97c3..e37b6e10bbc 100644
--- a/libgfortran/intrinsics/spread_generic.c
+++ b/libgfortran/intrinsics/spread_generic.c
@@ -367,7 +367,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source,
 	break;
       else
 	{
-	  spread_i1 ((gfc_array_i1 *) ret, (gfc_array_i1 *) source,
+	  spread_i2 ((gfc_array_i2 *) ret, (gfc_array_i2 *) source,
 		     *along, *pncopies);
 	  return;
 	}