codekingpro/portable-devtools

1module foo
2  public
3  integer, private :: a
4  integer :: b
5contains
6  subroutine setA(v)
7    integer, intent(in) :: v
8    a = v
9  end subroutine setA
10end module foo
11