Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/finalize_18.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
17 end type t2 17 end type t2
18 integer, save :: cnt = -1 18 integer, save :: cnt = -1
19 contains 19 contains
20 subroutine fini(x) 20 subroutine fini(x)
21 type(t) :: x 21 type(t) :: x
22 if (cnt == -1) call abort () 22 if (cnt == -1) STOP 1
23 cnt = cnt + 1 23 cnt = cnt + 1
24 end subroutine fini 24 end subroutine fini
25 end module m 25 end module m
26 26
27 use m 27 use m