Modules/FortranCInterface/call_sub.f (4 lines of code) (raw):

subroutine call_sub call mysub() call my_sub() end