From 453ecff58b2b2b447743af8890392060b5922dfc Mon Sep 17 00:00:00 2001
From: albert-github <albert.tests@gmail.com>
Date: Fri, 23 Apr 2021 15:45:44 +0200
Subject: Problem with Fortran, giving a warning about invalid state

Fortran gives a warning like
```
Error in file .../mic_lib.f90 line: 15, state: 4(SubprogBody)
```
This happens after the upade:
```
Commit: 592aaa4f17d73ec8c475df0f44efaea8cc4d575c [592aaa4]
Date: Sunday, April 11, 2021 9:22:59 PM
Commit Date: Thursday, April 22, 2021 7:34:13 PM
Refactoring: remove implicit conversion from QCString to const char *
```

Looks like an initialization that was previously done automatic doesn't happen anymore.
(Problem found by Fossies in openmpi, gcc, fimex).
---
 src/fortranscanner.l | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index f36b6ae..328612a 100755
--- a/src/fortranscanner.l
+++ b/src/fortranscanner.l
@@ -378,6 +378,7 @@ SCOPENAME ({ID}{BS}"::"{BS})*
                                             if (YY_START != Prepass)
                                             {
                                               yyextra->comments.clear();
+                                              yyextra->inputStringPrepass=QCString();
                                               yy_push_state(Prepass,yyscanner);
                                             }
 
-- 
cgit v0.12