diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-14 18:50:57 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-14 18:50:57 +0000 |
| commit | a4386fd1c9d2d7d9bb0d6222aa56237ef1f3185d (patch) | |
| tree | df806f1b2440d184b6965300c889248ef11c26a5 /libgfortran | |
| parent | d49f219f3a166a1e3cfe9c12d32fd0492132646c (diff) | |
| download | gcc-a4386fd1c9d2d7d9bb0d6222aa56237ef1f3185d.tar.gz | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/spread_generic.c | 2 |
2 files changed, 7 insertions, 1 deletions
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; } |