comparison gcc/testsuite/gfortran.dg/use_13.f90 @ 131:84e7813d76e9

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
23 contains 23 contains
24 subroutine test() 24 subroutine test()
25 ! All procedures/variables below refer to the ones in module "m" 25 ! All procedures/variables below refer to the ones in module "m"
26 ! and not to the siblings in this module "m2". 26 ! and not to the siblings in this module "m2".
27 use m 27 use m
28 if (fun() /= 42) call abort() 28 if (fun() /= 42) STOP 1
29 if (var /= 43) call abort() 29 if (var /= 43) STOP 2
30 call fun2() 30 call fun2()
31 if (var /= 44) call abort() 31 if (var /= 44) STOP 3
32 end subroutine test 32 end subroutine test
33 integer function fun() 33 integer function fun()
34 call abort() 34 STOP 4
35 fun = -3 35 fun = -3
36 end function fun 36 end function fun
37 subroutine fun2() 37 subroutine fun2()
38 call abort() 38 STOP 5
39 end subroutine fun2 39 end subroutine fun2
40 end module m2 40 end module m2
41 41
42 use m2 42 use m2
43 call test() 43 call test()