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