Function dummy_fortran_file

numpy/distutils/fcompiler/__init__.py:972–976

()

def dummy_fortran_file():
    fo, name = make_temp_file(suffix='.f')
    fo.write("      subroutine dummy()\n      end\n")
    fo.close()
    return name[:-2]


_has_f_header = re.compile(r'-\*-\s*fortran\s*-\*-', re.I).search