Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/read_eof_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 } ! PR43517 Spurious EOF condition when namelist read follows formatted read ! Test case from the problem reporter - Michael Richmond program main namelist /name/ j open (10,status='scratch',form='formatted') write(10,'(a)') "999999" write(10,'(a)') " $name" write(10,'(a)') " j=73," write(10,'(a)') " /" rewind(10) i = 54321 idum = 6789 read (10,'(2i5,4x)') i, idum ! Trailing 4x was setting EOF condition if (i /= 99999 .and. idum /= 9) call abort j = 12345 read (10,name) ! EOF condition tripped here. if (j /= 73) call abort end program main