OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/52386 (ICE in gfc_conv_descriptor_dtyp (realloc LHS related)) 

2012-02-29  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/52386
	* trans-expr.c (fcncall_realloc_result): Dereference the
	descriptor if needed.

2012-02-29  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/52386
	* gfortran.dg/realloc_on_assign_13.f90 : New test.

From-SVN: r184651
This commit is contained in:
Paul Thomas 2012-02-29 07:21:38 +00:00
parent b7c8e77fbf
commit 5cda350e60
4 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2012-02-29 Paul Thomas <pault@gcc.gnu.org>
PR fortran/52386
* trans-expr.c (fcncall_realloc_result): Dereference the
descriptor if needed.
2012-02-22 Tobias Burnus <burnus@net-b.de>
PR fortran/52335

2
gcc/fortran/trans-expr.c
View File

@ -6299,6 +6299,8 @@ fcncall_realloc_result (gfc_se *se, int rank)
/* Use the allocation done by the library. Substitute the lhs
descriptor with a copy, whose data field is nulled.*/
desc = build_fold_indirect_ref_loc (input_location, se->expr);
if (POINTER_TYPE_P (TREE_TYPE (desc)))
desc = build_fold_indirect_ref_loc (input_location, desc);
/* Unallocated, the descriptor does not have a dtype. */
tmp = gfc_conv_descriptor_dtype (desc);

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2012-02-29 Paul Thomas <pault@gcc.gnu.org>
PR fortran/52386
* gfortran.dg/realloc_on_assign_13.f90 : New test.
2012-02-28 Matthew Gretton-Dann <matthew.gretton-dann@arm.com>
PR target/51534

20
gcc/testsuite/gfortran.dg/realloc_on_assign_13.f90 Normal file
View File

@ -0,0 +1,20 @@
! { dg-do compile }
! Test the fix for PR52386.
!
! Contributed by Juergen Reuter <reuter@physik.uni-freiburg.de>
!
module cascades
implicit none
private
contains
function reduced (array)
integer, dimension(:), allocatable :: reduced
integer, dimension(:), intent(in) :: array
logical, dimension(size(array)) :: mask
mask = .true.
allocate (reduced (count (mask)))
reduced = pack (array, mask)
end function reduced
end module cascades
! { dg-final { cleanup-modules "cascades" } }