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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134286 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e228cf6..9fc0476 100644 (file)
--- 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 e50598a..e37b6e1 100644 (file)
--- 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;
        }