1! { dg-do run } 2! { dg-options "-w" } 3! PR25545 internal file and dollar edit descriptor. 4 program main 5 character*20 line 6 line = '1234567890ABCDEFGHIJ' 7 write (line, '(A$)') 'asdf' 8 if (line.ne.'asdf') call abort() 9 end 10