1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| module gh23879
| implicit none
| private
| public :: foo
|
| contains
|
| subroutine foo(a, b)
| integer, intent(in) :: a
| integer, intent(out) :: b
| b = a
| call bar(b)
| end subroutine
|
| subroutine bar(x)
| integer, intent(inout) :: x
| x = 2*x
| end subroutine
|
| end module gh23879
|
|
