gcc/testsuite/gfortran.dg/continuation_11.f90

   1 ! { dg-do run }
   2 ! { dg-options "-Wall -pedantic" }
   3 ! Before a bogus warning was printed
   4 !
   5 ! PR fortran/39811
   6 !
   7 implicit none
   8 character(len=70) :: str
   9 write(str,'(a)') 'Print rather a lot of ampersands &&&&&
  10    &&&&&
  11    &&&&&'
  12 if (len(trim(str)) /= 44 &
  13     .or. str /= 'Print rather a lot of ampersands &&&&&&&&&&&') &
  14     call abort()
  15 end