summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/list_read_7.f90
blob: 4ee08354b1d3a007a87e49c7728b1f43af28b384 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
! { 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