main.f90 397 B

12345678910
  1. program main
  2. use parent, only : child_function,grandchild_subroutine
  3. use parent, only : sibling_function,GreatGrandChild_subroutine
  4. ! Using a module without postfix
  5. use obfuscated_parent
  6. implicit none
  7. if (child_function()) call grandchild_subroutine
  8. if (sibling_function()) call GreatGrandChild_subroutine
  9. if (child_function_obf()) call grandchild_subroutine_obf
  10. end program