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