Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/list_read_8.f90 @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! PR34676 IO error delayed ! Test case from PR modified by <jvdelisle@gcc.gnu.org> implicit none integer::i,badness character::c open(unit=10,status="scratch") write(10,'(a)') '1' write(10,'(a)') '2' write(10,'(a)') '3' rewind(10) do i=1,10 read(10,*,iostat=badness) if (badness/=0) exit enddo if (i /= 4) call abort end