Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/contained_1.f90 @ 132:d34655255c78
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 |
---|---|
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 |