diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/simplify.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e88f468..dbfc43f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2005-09-06 Richard Sandiford <richard@codesourcery.com> + + PR fortran/19269 + * simplify.c (gfc_simplify_transpose): Set the result's typespec from + the source, not the first element of the return value. + 2005-09-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> PR fortran/23661 diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 72d03ea..44dfe1a 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -2858,7 +2858,7 @@ inc: for (i = 0; i < rank; i++) mpz_init_set_ui (e->shape[i], shape[i]); - e->ts = head->expr->ts; + e->ts = source->ts; e->rank = rank; return e; |