1! { dg-do run } 2! PR33400 Formatted read fails if line ends without line break 3! Test case modified from that in PR by <jvdelisle@gcc.gnu.org> 4integer, parameter :: fgsl_strmax = 128 5character(len=fgsl_strmax) :: ieee_str1, ieee_str2 6open(unit=20, file='test.dat',form='FORMATTED', status="replace") 7write(20,'(a)',advance="no") ' 1.01010101010101010101010101010101& 8 &01010101010101010101*2^-2 1.01010101010101010101011*2^-2' 9rewind(20) 10read(20, fmt=*) ieee_str1, ieee_str2 11if (trim(ieee_str1) /= & 12 '1.0101010101010101010101010101010101010101010101010101*2^-2') & 13 STOP 1 14if (trim(ieee_str2) /= & 15 '1.01010101010101010101011*2^-2') & 16 STOP 2 17close(20, status="delete") 18end 19