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