Commit c9d16c13 authored by olegator's avatar olegator
Browse files

Fix for bug 644350: fixed format line continuations.

parent 59239656

src/fortranscanner.l

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

      case 'C':

      case 'c':

      case 'c':

      case '*':

      case '*':

	emptyLabel=FALSE;

        if(column==1) {

        if(column==1)

	  newContents[j]='!';

	  newContents[j]='!';

        else

	  emptyLabel=FALSE;

          newContents[j]=c;

	  break;

	  break;

	} else {

	  // proceed to the next rule

        }

      default:

      default:

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

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

          newContents[j]=' ';

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




bool FortranLanguageScanner::needsPreprocessing(const QCString &extension)

bool FortranLanguageScanner::needsPreprocessing(const QCString &extension)

{

{

  (void)extension;

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

  return TRUE;

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

}

}

void FortranLanguageScanner::resetCodeParserState()

void FortranLanguageScanner::resetCodeParserState()

{

{