URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [forall_char_dependencies_1.f90] - Blame information for rev 827

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
! Tests fix for PR29211, in which an ICE would be produced by FORALL assignments
! with dependencies.
!
! Contributed by Paul Thomas  
!
  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

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { 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`
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)`
13			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [forall_char_dependencies_1.f90] - Blame information for rev 827