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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [oldstyle_1.f90] - Blame information for rev 12

Line No.	Rev	Author	Line
1	12	jlechner	`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`