Modules/FortranCInterface/call_sub.f - third_party/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