gcc/testsuite/gfortran.dg/line_length_2.f90

   1 ! 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