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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Tests the fix for PR30514 in which the bounds on m would cause an
! error and the rest would cause the compiler to go into an infinite
! loop.
! Contributed by Tobias Burnus 
!
integer :: i(2:0), j(1:0), m(1:-1)
integer, parameter :: k(2:0) = 0, l(1:0) = 0
i = k
j = l
m = 5
end
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`! Tests the fix for PR30514 in which the bounds on m would cause an`
3			`! error and the rest would cause the compiler to go into an infinite`
4			`! loop.`
5			`! Contributed by Tobias Burnus`
6			`!`
7			`integer :: i(2:0), j(1:0), m(1:-1)`
8			`integer, parameter :: k(2:0) = 0, l(1:0) = 0`
9			`i = k`
10			`j = l`
11			`m = 5`
12			`end`
13

Browse

Tools

Subversion Repositories openrisc

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