Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/list_read_7.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { 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