1217309Snwhitehorn! { dg-do run }
2251843Sbapt! { dg-options "-w" }
3217309Snwhitehorn! PR libfortran/20006
4217309Snwhitehorn      character*5 c
5217309Snwhitehorn      open (42,status='scratch')
6217309Snwhitehorn      write (42,'(A,$)') 'abc'
7251843Sbapt      write (42,'(A)') 'de'
8217309Snwhitehorn      rewind (42)
9217309Snwhitehorn      read (42,'(A)') c
10217309Snwhitehorn      close (42)
11217309Snwhitehorn
12217309Snwhitehorn      if (c /= 'abcde') call abort
13217309Snwhitehorn      end
14217309Snwhitehorn