From b42f50c0c47d175325055cfe99d1b3286aab61b2 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@users.sourceforge.net>
Date: Wed, 13 Jul 2011 07:29:01 +0200
Subject: [PATCH] Aligned errays Version:1.1.76

---
 src/preprocessed_text.py | 2 +-
 src/variable.py          | 2 ++
 src/version.py           | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/preprocessed_text.py b/src/preprocessed_text.py
index 1dff0cb..4fbab80 100644
--- a/src/preprocessed_text.py
+++ b/src/preprocessed_text.py
@@ -146,7 +146,7 @@ instead of
     if firstword.startswith("case("):
      return [ Case(i,line,filename) ], is_doc
 
-    if lower_line0[1:5] == "$omp":
+    if lower_line0[1:5] in ["$omp", "dec$", "dir$"]:
      return [ Openmp(i,line,filename) ], is_doc
 
     if re_decl.match(lower_line) is not None:
diff --git a/src/variable.py b/src/variable.py
index 7b2e847..02d4654 100644
--- a/src/variable.py
+++ b/src/variable.py
@@ -231,6 +231,8 @@ class Variable(object):
       self._header = [ "  %s :: %s %s"%(self.type, name, build_dim_colons(self) ) ]
       if self.is_main:
        self._header += [ "  logical :: %s_is_built = .False."%(name) ]
+      if "allocatable" in self.type:
+       self._header += ["!DEC$ ATTRIBUTES ALIGN: 32 :: %s"%(name)]
     return self._header
   header = property(header)
 
diff --git a/src/version.py b/src/version.py
index 7264fb1..45ef7ce 100644
--- a/src/version.py
+++ b/src/version.py
@@ -1 +1 @@
-version = "1.1.75"
+version = "1.1.76"