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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bounds_check_7.f90] - Blame information for rev 384

Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Array reference out of bounds" }
! PR fortran/31627
subroutine foo(a)
  integer a(*), i
  i = 0
  a(i) = 42 ! {
end subroutine foo
 
program test
  integer x(42)
  call foo(x)
end program test
! { dg-output "Index '0' of dimension 1 of array 'a' below lower bound of 1" }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fbounds-check" }`
3			`! { dg-shouldfail "Array reference out of bounds" }`
4			`! PR fortran/31627`
5			`subroutine foo(a)`
6			`integer a(*), i`
7			`i = 0`
8			`a(i) = 42 ! {`
9			`end subroutine foo`
10
11			`program test`
12			`integer x(42)`
13			`call foo(x)`
14			`end program test`
15			`! { dg-output "Index '0' of dimension 1 of array 'a' below lower bound of 1" }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bounds_check_7.f90] - Blame information for rev 384