Commit 0b26bfdf authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Fix line counting in F77 interface generator.

parent 8bb25c8a
......@@ -783,8 +783,11 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
{
fprintf(stderr, "Found conditional C++ block, skipping to #else\n");
while ((lineLen = getline(&line, &lineBufSize, fpin)) >= 0)
if (!regexec(&cppElseRE, line, maxMatch, reMatch, 0))
break;
{
++lineno;
if (!regexec(&cppElseRE, line, maxMatch, reMatch, 0))
break;
}
}
else if (detectComment(&line, &lineLen, &lineBufSize,
maxMatch, reMatch,
......
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