gdb/testsuite/gdb.base/langs1.f

   1 c I am not sure whether there is a way to have a fortran program without
   2 c a MAIN, but it does not really harm us to have one.
   3       end
   4       subroutine fsub
   5         integer*4 cppsub
   6         return (cppsub (10000))
   7       end