io_end.f90 « compile « gfortran.fortran-torture « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.fortran-torture/compile/io_end.f90

blob: f67ae57ae8ea4dffe87b400f2d3efda47649e1a3 (plain)

! Check we can cope with end labels in IO statements
program m
    implicit none
    integer i
    do while (.true.)
       read(*, *, end = 1) i
    end do
1   continue 
end program m