From e19d2285132c58d0874492501261c6fab4748a84 Mon Sep 17 00:00:00 2001
From: Andreas Kloeckner <inform@tiker.net>
Date: Thu, 4 Jun 2015 12:49:51 -0500
Subject: [PATCH] Fix if nest checking in Fortran frontend
---
loopy/frontend/fortran/translator.py | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/loopy/frontend/fortran/translator.py b/loopy/frontend/fortran/translator.py
index af08f1dca..eba76338d 100644
--- a/loopy/frontend/fortran/translator.py
+++ b/loopy/frontend/fortran/translator.py
@@ -464,11 +464,10 @@ class F2LoopyTranslator(FTreeWalkerBase):
self.conditions.append(cond_name)
+ self.block_nest.append("if")
for c in node.content:
self.rec(c)
- self.block_nest.append("if")
-
def map_Else(self, node):
cond_name = self.conditions.pop()
self.conditions.append("!" + cond_name)
--
GitLab