Bug 733856 - segfault in QGListIterator while parsing fortran code

Problem with variables with the name type versus type definitions.
type followed by = is recognized as not being a type definition instead of the use of a variable.

1 files changed, 1 insertions, 0 deletions

diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index 449b05d..1f52110 100644
--- a/src/fortranscanner.l
+++ b/src/fortranscanner.l
@@ -739,6 +739,7 @@ private                                 {
 {ID}	                               {
                                        }  
 ^{BS}"type"{BS_}"is"/{BS_}             { }
+^{BS}"type"{BS}"="                     { }
 }
 <AttributeList>{
 {COMMA}					{}