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