main.f90 « Submodules « FortranModules « Tests - platform/upstream/cmake - Domain: System / Base; Licenses: BSD-3-Clause;

index : platform/upstream/cmake

Domain: System / Base; Licenses: BSD-3-Clause;

Donghun Kwak <dh0128.kwak@samsung.com>, JinWang An <jinwang.an@samsung.com>, Kiseok Chang <kiso.chang@samsung.com>

summary refs log tree commit diff

path: root/Tests/FortranModules/Submodules/main.f90

blob: 3cd29892c13316d4265dbec24ee5c3bb73f319bb (plain)

program main
  use parent, only : child_function,grandchild_subroutine
  use parent, only : sibling_function,GreatGrandChild_subroutine
  implicit none
  if (child_function()) call grandchild_subroutine
  if (sibling_function()) call GreatGrandChild_subroutine
end program