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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr17229.f] - Blame information for rev 307

Line No.	Rev	Author	Line
1	302	jeremybenn	`! PR fortran/17229`
2			`! { dg-do run }`
3
4			`integer i`
5			`logical l`
6
7			`l = .false.`
8			`i = -1`
9			`if (l) if (i) 999,999,999 ! { dg-warning "Obsolescent feature" }`
10
11			`l = .true.`
12			`if (l) if (i) 10,999,999 ! { dg-warning "Obsolescent feature" }`
13			`go to 999`
14
15			`10 i = 0`
16			`if (l) if (i) 999,20,999 ! { dg-warning "Obsolescent feature" }`
17			`go to 999`
18
19			`20 i = 1`
20			`if (l) if (i) 999,999,30 ! { dg-warning "Obsolescent feature" }`
21			`go to 999`
22
23			`999 call abort`
24			`30 end`