summaryrefslogtreecommitdiffstats
path: root/Tests/FortranModules/Submodules/main.f90
blob: 67ffba877015f3d4e6b0c092b229677f5e149bd4 (plain)
1
2
3
4
5
6
7
8
9
10
program main
  use parent, only : child_function,grandchild_subroutine
  use parent, only : sibling_function,GreatGrandChild_subroutine
  ! Using a module without postfix
  use obfuscated_parent
  implicit none
  if (child_function())     call grandchild_subroutine
  if (sibling_function())   call GreatGrandChild_subroutine
  if (child_function_obf()) call grandchild_subroutine_obf
end program