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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [line_length_2.f90] - Blame information for rev 816

Details | Compare with Previous | View Log


! Testcase for -ffree-line-length-none
! See PR fortran/21302
! { dg-do compile }
! { dg-options "-ffree-line-length-none" }
program two
 if (abs(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa).gt.999.d0.or.abs(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb).gt.999.d0.or.abs(cccccccccccccccccccc).gt.999.d0) THEN
 endif
end program two

Line No.	Rev	Author	Line
1	149	jeremybenn	`! Testcase for -ffree-line-length-none`
2			`! See PR fortran/21302`
3			`! { dg-do compile }`
4			`! { dg-options "-ffree-line-length-none" }`
5			`program two`
6			`if (abs(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa).gt.999.d0.or.abs(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb).gt.999.d0.or.abs(cccccccccccccccccccc).gt.999.d0) THEN`
7			`endif`
8			`end program two`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [line_length_2.f90] - Blame information for rev 816