From f265c48e8ba3af0ccf6fc8489988253e424372ae Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@users.sourceforge.net>
Date: Mon, 18 Jul 2011 11:31:18 +0200
Subject: [PATCH] Minor modification Version:1.1.77

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

diff --git a/src/variable.py b/src/variable.py
index 02d4654..05e9f21 100644
--- a/src/variable.py
+++ b/src/variable.py
@@ -231,7 +231,7 @@ 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:
+      if self.dim != []:
        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 45ef7ce..8e259e3 100644
--- a/src/version.py
+++ b/src/version.py
@@ -1 +1 @@
-version = "1.1.76"
+version = "1.1.77"