Modules/FortranCInterface/call_sub.f - external/github.com/Kitware/CMake - Git at Google

         subroutine call_sub
           !DIR$ NOINLINE
           call mysub()
           call my_sub()
         end
	subroutine call_sub
	!DIR$ NOINLINE
	call mysub()
	call my_sub()
	end