14 lines
435 B
Fortran
14 lines
435 B
Fortran
|
! { dg-do compile }
|
||
|
! Tests fix for PR29211, in which an ICE would be produced by FORALL assignments
|
||
|
! with dependencies.
|
||
|
!
|
||
|
! Contributed by Paul Thomas <pault@gcc.gnu.org>
|
||
|
!
|
||
|
character(12), dimension(2) :: a, b
|
||
|
a= (/"abcdefghijkl","mnopqrstuvwx"/)
|
||
|
! OK because it uses gfc_trans_assignment
|
||
|
forall (i=1:2) b(i) = a(i)
|
||
|
! Was broken - gfc_trans_assign_need_temp had no handling of string lengths
|
||
|
forall (i=1:2) a(3-i) = a(i)
|
||
|
end
|