From 3a5a8be12000125f4c12efea8bd6a466049a688d Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 14 Apr 2008 18:50:57 +0000 Subject: [PATCH] re PR libfortran/32972 (performance of pack/unpack) 2008-04-14 Thomas Koenig PR libfortran/32972 * intrinsics/spread_generic.c (spread): Use spread_i2() for GFC_DTYPE_DERIVED_2 (fix typo from previous commit). From-SVN: r134286 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/intrinsics/spread_generic.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + 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 Francois-Xavier Coudert 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; }