1! { dg-do run }
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
14