codekingpro/portable-devtools

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