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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [12632.f] - Blame information for rev 12

Details | Compare with Previous | View Log


C { dg-do compile }
C { dg-options "-fbounds-check" }
       INTEGER I(1)
       I(2) = 0  ! { dg-error "out of bounds" "out of bounds" }
       END
 

Line No.	Rev	Author	Line
1	12	jlechner	`C { dg-do compile }`
2			`C { dg-options "-fbounds-check" }`
3			`INTEGER I(1)`
4			`I(2) = 0 ! { dg-error "out of bounds" "out of bounds" }`
5			`END`
6

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [12632.f] - Blame information for rev 12