34 lines
824 B
Fortran
34 lines
824 B
Fortran
|
! This module has two procedures from the "parent" module
|
||
|
|
! but it has different combinations 'module <word>' phrases
|
||
|
|
! in breaked lines for test of modules dependencies detection
|
||
|
|
|
||
|
|
! Module declaration on breaked line with reminder
|
||
|
|
module &
|
||
|
|
obfuscated_parent; implicit none
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
! Boolean module function
|
||
|
|
module logical &
|
||
|
|
function child_function_obf() result(child_stuff)
|
||
|
|
end function
|
||
|
|
|
||
|
|
! Module subroutine
|
||
|
|
module subroutine &
|
||
|
|
grandchild_subroutine_obf()
|
||
|
|
end subroutine
|
||
|
|
|
||
|
|
end interface
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
module logical function child_function_obf() result(child_stuff)
|
||
|
|
child_stuff=.true.
|
||
|
|
end function
|
||
|
|
|
||
|
|
module subroutine grandchild_subroutine_obf()
|
||
|
|
print *,"Test passed."
|
||
|
|
end subroutine
|
||
|
|
|
||
|
|
end module obfuscated_parent
|