gcc/testsuite/gfortran.dg/dollar_edit_descriptor_2.f

   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