1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
module stdlib_error_submodule_09
implicit none
interface
module subroutine error_stop(code)
integer, intent(inout) :: code
end subroutine error_stop
end interface
end module
submodule (stdlib_error_submodule_09) f18estop_submodule_09
implicit none
contains
module procedure error_stop
integer, parameter :: i = 3
code = i
end procedure
end submodule f18estop_submodule_09
program submodule_09
use stdlib_error_submodule_09
implicit none
integer :: tester = 1
call error_stop(tester)
print *, tester
if (tester /= 3) error stop
end program
|
