Commit 1e8e1162 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(find_entries): If filename ends in .f or .for, don't try anything but Fortran.

parent bf03a38a
......@@ -1034,11 +1034,17 @@ find_entries (file)
PAS_funcs (inf);
goto close_and_return;
}
/* If .f or .for, assume it is fortran or nothing. */
if (cp && (streq (cp + 1, "f") || streq (cp + 1, "for")))
{
PF_funcs (inf);
goto close_and_return;
}
/* if not a .c or .h or .y file, try fortran */
else if (cp && ((cp[1] != 'c'
&& cp[1] != 'h'
&& cp[1] != 'y')
|| (cp[1] != 0 && cp[2] != 0)))
if (cp && ((cp[1] != 'c'
&& cp[1] != 'h'
&& cp[1] != 'y')
|| (cp[1] != 0 && cp[2] != 0)))
{
if (PF_funcs (inf) != 0)
goto close_and_return;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment