Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/recursive_alloc_comp_3.f08 @ 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
15 type (stack), allocatable :: top, temp, dum 15 type (stack), allocatable :: top, temp, dum
16 16
17 call poke (1) 17 call poke (1)
18 call poke (2) 18 call poke (2)
19 call poke (3) 19 call poke (3)
20 if (top%index .ne. 3) call abort 20 if (top%index .ne. 3) STOP 1
21 call output (top) 21 call output (top)
22 call pop 22 call pop
23 if (top%index .ne. 2) call abort 23 if (top%index .ne. 2) STOP 2
24 call output (top) 24 call output (top)
25 deallocate (top) 25 deallocate (top)
26 contains 26 contains
27 subroutine output (arg) 27 subroutine output (arg)
28 type(stack), target, allocatable :: arg 28 type(stack), target, allocatable :: arg