URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [forall_char_dependencies_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests fix for PR29211, in which an ICE would be produced by FORALL assignments`	`! Tests fix for PR29211, in which an ICE would be produced by FORALL assignments`
`! with dependencies.`	`! with dependencies.`
`!`	`!`
`! Contributed by Paul Thomas`	`! Contributed by Paul Thomas`
`!`	`!`
`character(12), dimension(2) :: a, b`	`character(12), dimension(2) :: a, b`
`a= (/"abcdefghijkl","mnopqrstuvwx"/)`	`a= (/"abcdefghijkl","mnopqrstuvwx"/)`
`! OK because it uses gfc_trans_assignment`	`! OK because it uses gfc_trans_assignment`
`forall (i=1:2) b(i) = a(i)`	`forall (i=1:2) b(i) = a(i)`
`! Was broken - gfc_trans_assign_need_temp had no handling of string lengths`	`! Was broken - gfc_trans_assign_need_temp had no handling of string lengths`
`forall (i=1:2) a(3-i) = a(i)`	`forall (i=1:2) a(3-i) = a(i)`
`end`	`end`