Modules/FortranCInterface/call_mod.f90 - external/github.com/Kitware/CMake - Git at Google

 subroutine call_mod
   !DIR$ NOINLINE
   use mymodule
   use my_module
   call mysub()
   call my_sub()
 end subroutine call_mod
	subroutine call_mod
	!DIR$ NOINLINE
	use mymodule
	use my_module
	call mysub()
	call my_sub()
	end subroutine call_mod