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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [debug_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`subroutine gfc_debug_bug (n,m,k,ax,bx,c)`	`subroutine gfc_debug_bug (n,m,k,ax,bx,c)`
`! above line must be the first line`	`! above line must be the first line`
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-g" }`	`! { dg-options "-g" }`
`! PR 19195`	`! PR 19195`
`! we set line numbers wrongly, which made the compiler choke when emitting`	`! we set line numbers wrongly, which made the compiler choke when emitting`
`! debug information.`	`! debug information.`
`implicit none`	`implicit none`
`integer :: n, m`	`integer :: n, m`
`integer :: k(n+m)`	`integer :: k(n+m)`
`real :: ax(:), bx(n), c(n+m)`	`real :: ax(:), bx(n), c(n+m)`

`integer :: i`	`integer :: i`
`real :: f`	`real :: f`

`i = k(n)`	`i = k(n)`
`f = c(n)`	`f = c(n)`
`f = bx(n)`	`f = bx(n)`
`f = ax(n)`	`f = ax(n)`
`end subroutine gfc_debug_bug`	`end subroutine gfc_debug_bug`