path: root/archive/tests/1/a.f90

module a
use b, only: g
implicit none

contains

    subroutine f()
    call g()
    end subroutine

end module