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

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900 (2018-10-24)
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
2 ! Testing POSITION="APPEND" 2 ! Testing POSITION="APPEND"
3 ! 3 !
4 ! { dg-do run } 4 ! { dg-do run }
5 subroutine failed 5 subroutine failed
6 close (10,status='delete') 6 close (10,status='delete')
7 call abort 7 STOP 1
8 end subroutine failed 8 end subroutine failed
9 9
10 integer,parameter :: n = 13 10 integer,parameter :: n = 13
11 integer :: i, j, error 11 integer :: i, j, error
12 12