Commit 1229ece0 by Paul Thomas

re PR fortran/32962 (b = conjg(transpose(a)) is erroneous if b is an allocatable array)

2007-08-13  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/32962
	* trans-array.c (gfc_conv_array_transpose): Set the offset
	of the destination to zero if the loop is zero based.

2007-08-13  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/32962
	* gfortran.dg/transpose_1.f90: New test.

From-SVN: r127391
parent d9acb717
2007-08-13 Paul Thomas <pault@gcc.gnu.org>
PR fortran/32962
* trans-array.c (gfc_conv_array_transpose): Set the offset
of the destination to zero if the loop is zero based.
2007-08-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2007-08-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/29600 PR fortran/29600
......
...@@ -783,13 +783,18 @@ gfc_conv_array_transpose (gfc_se * se, gfc_expr * expr) ...@@ -783,13 +783,18 @@ gfc_conv_array_transpose (gfc_se * se, gfc_expr * expr)
dest_info->data = gfc_conv_descriptor_data_get (src); dest_info->data = gfc_conv_descriptor_data_get (src);
gfc_conv_descriptor_data_set (&se->pre, dest, dest_info->data); gfc_conv_descriptor_data_set (&se->pre, dest, dest_info->data);
/* Copy the offset. This is not changed by transposition: the top-left /* Copy the offset. This is not changed by transposition; the top-left
element is still at the same offset as before. */ element is still at the same offset as before, except where the loop
dest_info->offset = gfc_conv_descriptor_offset (src); starts at zero. */
if (!integer_zerop (loop->from[0]))
dest_info->offset = gfc_conv_descriptor_offset (src);
else
dest_info->offset = gfc_index_zero_node;
gfc_add_modify_expr (&se->pre, gfc_add_modify_expr (&se->pre,
gfc_conv_descriptor_offset (dest), gfc_conv_descriptor_offset (dest),
dest_info->offset); dest_info->offset);
if (dest_info->dimen > loop->temp_dim) if (dest_info->dimen > loop->temp_dim)
loop->temp_dim = dest_info->dimen; loop->temp_dim = dest_info->dimen;
} }
......
2007-08-13 Paul Thomas <pault@gcc.gnu.org>
PR fortran/32962
* gfortran.dg/transpose_1.f90: New test.
2007-08-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2007-08-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/29600 PR fortran/29600
! { dg-do compile }
! Tests the fix for PR32962, in which the result of TRANSPOSE, when
! an actual argument of an elemental intrinsic would receive the
! wrong offset.
!
! Contributed by Wirawan Purwanto <wirawan0@gmail.com>
!
real(kind=8), allocatable :: b(:,:)
real(kind=8) :: a(2,2), c(2,2)
i = 2
allocate (b(i,i))
a(1,1) = 2
a(2,1) = 3
a(1,2) = 7
a(2,2) = 11
call foo
call bar
if (any (c .ne. b)) call abort
contains
subroutine foo
b = cos(transpose(a))
end subroutine
subroutine bar
c = transpose(a)
c = cos(c)
end subroutine
end program
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment