gcc/testsuite/gfortran.dg/dollar_edit_descriptor_1.f

   1 ! { dg-do run { target fd_truncate } }
   2 ! { dg-options "-w" }
   3 ! PR libfortran/20006
   4       character*5 c
   5       open (42,status='scratch')
   6       write (42,'(A,$)') 'abc'
   7       write (42,'(A)') 'de'
   8       rewind (42)
   9       read (42,'(A)') c
  10       close (42)
  11
  12       if (c /= 'abcde') call abort
  13       end