From e5561910a6732d6af7fb68169d22f3d882dd8caa Mon Sep 17 00:00:00 2001
From: arphaman <arphaman@gmail.com>
Date: Wed, 2 Oct 2013 19:53:54 +0100
Subject: fixed type_keyword in assignment statement bug

---
 lib/Parse/Parser.cpp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/Parse/Parser.cpp b/lib/Parse/Parser.cpp
index a814475f16..e72b42471b 100644
--- a/lib/Parse/Parser.cpp
+++ b/lib/Parse/Parser.cpp
@@ -1131,6 +1131,8 @@ bool Parser::ParseDeclarationConstruct() {
     break;
   case tok::kw_TYPE:
   case tok::kw_CLASS:
+    if (IsNextToken(tok::equal))
+      return true;
     if(!IsNextToken(tok::l_paren)) {
       ParseDerivedTypeDefinitionStmt();
       break;
@@ -1143,6 +1145,8 @@ bool Parser::ParseDeclarationConstruct() {
   case tok::kw_LOGICAL:
   case tok::kw_DOUBLEPRECISION:
   case tok::kw_DOUBLECOMPLEX: {
+    if (IsNextToken(tok::equal))
+      return true;
     if (ParseTypeDeclarationStmt(Decls))
       SkipUntilNextStatement();
     else
-- 
cgit v1.2.1