diff --git a/loopy/frontend/fortran/translator.py b/loopy/frontend/fortran/translator.py
index c708fc4a1d2980dbe36cd243678f355d441fbdd7..53ea602f1d9b0a5b4fd9b04bc2486d7daae0ca5f 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]