19 lines
698 B
Fortran
19 lines
698 B
Fortran
! { dg-do run }
|
|
! PR33400 Formatted read fails if line ends without line break
|
|
! Test case modified from that in PR by <jvdelisle@gcc.gnu.org>
|
|
integer, parameter :: fgsl_strmax = 128
|
|
character(len=fgsl_strmax) :: ieee_str1, ieee_str2
|
|
open(unit=20, file='test.dat',form='FORMATTED', status="replace")
|
|
write(20,'(a)',advance="no") ' 1.01010101010101010101010101010101&
|
|
&01010101010101010101*2^-2 1.01010101010101010101011*2^-2'
|
|
rewind(20)
|
|
read(20, fmt=*) ieee_str1, ieee_str2
|
|
if (trim(ieee_str1) /= &
|
|
'1.0101010101010101010101010101010101010101010101010101*2^-2') &
|
|
call abort
|
|
if (trim(ieee_str2) /= &
|
|
'1.01010101010101010101011*2^-2') &
|
|
call abort
|
|
close(20, status="delete")
|
|
end
|