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

re PR fortran/49698 (Unmanageable compiler error) 

PR fortran/49698
	* trans-stmt.c (gfc_trans_pointer_assign_need_temp): Initialize
	inner_size to gfc_index_one_node instead of integer_one_node.

	* gfortran.dg/pr49698.f90: New test.

From-SVN: r176164
This commit is contained in:
Jakub Jelinek 2011-07-11 18:42:29 +02:00
parent 4a8bb046a3
commit 932ebb945f
4 changed files with 28 additions and 2 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 @@
2011-07-11 Jakub Jelinek <jakub@redhat.com>
PR fortran/49698
* trans-stmt.c (gfc_trans_pointer_assign_need_temp): Initialize
inner_size to gfc_index_one_node instead of integer_one_node.
2011-07-10 Tobias Burnus <burnus@net-b.de>
PR fortran/49690

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

@ -3323,7 +3323,7 @@ gfc_trans_pointer_assign_need_temp (gfc_expr * expr1, gfc_expr * expr2,
count = gfc_create_var (gfc_array_index_type, "count");
gfc_add_modify (block, count, gfc_index_zero_node);
inner_size = integer_one_node;
inner_size = gfc_index_one_node;
lss = gfc_walk_expr (expr1);
rss = gfc_walk_expr (expr2);
if (lss == gfc_ss_terminator)

7
gcc/testsuite/ChangeLog
View File

@ -1,4 +1,9 @@
2011-07-11 Jeff Law <law@redhat.com>
2011-07-11 Jakub Jelinek <jakub@redhat.com>
PR fortran/49698
* gfortran.dg/pr49698.f90: New test.
2011-07-11 Jeff Law <law@redhat.com>
* gcc.dg/uninit-pred-8_b.c: Disable dominator optimizations.

15
gcc/testsuite/gfortran.dg/pr49698.f90 Normal file
View File

@ -0,0 +1,15 @@
! PR fortran/49698
! { dg-do compile }
subroutine foo (x, y, z)
type S
integer, pointer :: e => null()
end type S
type T
type(S), dimension(:), allocatable :: a
end type T
type(T) :: x, y
integer :: z, i
forall (i = 1 : z)
y%a(i)%e => x%a(i)%e
end forall
end subroutine foo