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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [oldstyle_1.f90] - Blame information for rev 149

Line No.	Rev	Author	Line
1	149	jeremybenn	`integer i, j /1/, g/2/, h ! { dg-warning "" "" }`
2			`integer k, l(3) /2*2,1/ ! { dg-warning "" "" }`
3			`real pi /3.1416/, e ! { dg-warning "" "" }`
4
5			`if (j /= 1) call abort ()`
6			`if (g /= 2) call abort ()`
7			`if (any(l /= (/2,2,1/))) call abort ()`
8			`if (pi /= 3.1416) call abort ()`
9			`end`