Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/backspace_11.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
12 enddo 12 enddo
13 1 backspace 10 13 1 backspace 10
14 !the file pointer is now at EOF 14 !the file pointer is now at EOF
15 15
16 read(10,*,end=2) str 16 read(10,*,end=2) str
17 call abort 17 STOP 1
18 2 backspace 10 18 2 backspace 10
19 !the file pointer is now at EOF 19 !the file pointer is now at EOF
20 20
21 read(10,'(A)',end=3) str 21 read(10,'(A)',end=3) str
22 call abort 22 STOP 2
23 3 continue 23 3 continue
24 end program backspace_11 24 end program backspace_11