From 21bc1cc40873bb2106508f159dd5c389d357d9a1 Mon Sep 17 00:00:00 2001
From: Andreas Kloeckner <inform@tiker.net>
Date: Thu, 28 Jan 2016 19:43:07 -0600
Subject: [PATCH] Understand Fortran 'double precision' type
---
loopy/frontend/fortran/translator.py | 2 ++
1 file changed, 2 insertions(+)
diff --git a/loopy/frontend/fortran/translator.py b/loopy/frontend/fortran/translator.py
index c708fc4a1..53ea602f1 100644
--- a/loopy/frontend/fortran/translator.py
+++ b/loopy/frontend/fortran/translator.py
@@ -301,6 +301,7 @@ class F2LoopyTranslator(FTreeWalkerBase):
TYPE_MAP = {
("real", "4"): np.float32,
("real", "8"): np.float64,
+ ("doubleprecision", ""): np.float64,
("complex", "8"): np.complex64,
("complex", "16"): np.complex128,
@@ -339,6 +340,7 @@ class F2LoopyTranslator(FTreeWalkerBase):
map_Integer = map_type_decl
map_Real = map_type_decl
map_Complex = map_type_decl
+ map_DoublePrecision = map_type_decl
def map_Dimension(self, node):
scope = self.scope_stack[-1]
--
GitLab