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:
parent
4a8bb046a3
commit
932ebb945f
|
@ -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>
|
2011-07-10 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
PR fortran/49690
|
PR fortran/49690
|
||||||
|
|
|
@ -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");
|
count = gfc_create_var (gfc_array_index_type, "count");
|
||||||
gfc_add_modify (block, count, gfc_index_zero_node);
|
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);
|
lss = gfc_walk_expr (expr1);
|
||||||
rss = gfc_walk_expr (expr2);
|
rss = gfc_walk_expr (expr2);
|
||||||
if (lss == gfc_ss_terminator)
|
if (lss == gfc_ss_terminator)
|
||||||
|
|
|
@ -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.
|
* gcc.dg/uninit-pred-8_b.c: Disable dominator optimizations.
|
||||||
|
|
||||||
|
|
|
@ -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
|
Loading…
Reference in New Issue