Commit 01055ab4 authored by Dimitri van Heesch's avatar Dimitri van Heesch
Browse files

Fix for bug 644350: fixed format line continuations.

parent 4af88367

src/fortranscanner.l

+8 −7
Original line number Diff line number Diff line
@@ -1225,12 +1225,13 @@ static const char* prepassFixedForm(const char* contents) 
      case 'C':

      case 'c':

      case '*':

	emptyLabel=FALSE;

        if(column==1)

        if(column==1) {

	  newContents[j]='!';

        else

          newContents[j]=c;

	  emptyLabel=FALSE;

	  break;

	} else {

	  // proceed to the next rule

        }

      default:

        if(column==6 && emptyLabel) { // continuation

          newContents[j]=' ';
@@ -2029,8 +2030,8 @@ void FortranLanguageScanner::parseCode(CodeOutputInterface & codeOutIntf, 


bool FortranLanguageScanner::needsPreprocessing(const QCString &extension)

{

  (void)extension;

  return TRUE;

  return !(extension==".f"||extension==".f90"||

           extension==".f95"||extension==".f03");

}

void FortranLanguageScanner::resetCodeParserState()

{