1! { dg-do run } 2! pr37083 formatted read of line without trailing new-line fails 3real :: a, b, c 4open(unit=10,file="atest",access='stream',form='unformatted',& 5 & status="replace") 6write(10) '1.2'//achar(10)//'2.2'//achar(10)//'3.' 7call fputc(10,'3') 8close(10, status="keep") 9open(unit=10,file="atest",form='formatted',status="old") 10read(10,*) a, b, c 11if (a.ne.1.2 .or. b.ne.2.2 .or. c.ne.3.3) call abort 12close(10, status="delete") 13end 14