Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/contained_1.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
19 19
20 subroutine sub (proc, var) 20 subroutine sub (proc, var)
21 external proc1 21 external proc1
22 integer var 22 integer var
23 23
24 if (var .ne. 42) call abort 24 if (var .ne. 42) STOP 1
25 call proc 25 call proc
26 end subroutine 26 end subroutine
27 27
28 program contained_1 28 program contained_1
29 use contained_1_mod 29 use contained_1_mod
30 i = 0 30 i = 0
31 call a 31 call a
32 if (i .ne. 1) call abort 32 if (i .ne. 1) STOP 2
33 end program 33 end program