RISC-V: Refactor Dynamic LMUL codes
[official-gcc.git] / gcc / testsuite / gfortran.dg / line_length_1.f
blob1ac80338d89bb379a8f513c7dbb28f391dced777
1 ! Testcase for -ffixed-line-length-none
2 ! { dg-do compile }
3 ! { dg-options "-ffixed-line-length-none" }
4 program one
5 if (abs(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa).gt.999.d0.or.abs(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb).gt.999.d0.or.abs(cccccccccccccccccccc).gt.999.d0) THEN
6 endif
7 end program one