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