From a6fe476be503407499b465937b80843428ce678a Mon Sep 17 00:00:00 2001
From: Francis Russell <francis@unchartedbackwaters.co.uk>
Date: Sun, 20 May 2012 20:27:01 +0100
Subject: [PATCH] Place "allocatable" after type in declaration.

---
 src/ofc/codegen/FortranGenerator.scala | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ofc/codegen/FortranGenerator.scala b/src/ofc/codegen/FortranGenerator.scala
index 09dad75..d1f6bf2 100644
--- a/src/ofc/codegen/FortranGenerator.scala
+++ b/src/ofc/codegen/FortranGenerator.scala
@@ -48,12 +48,14 @@ class SymbolManager {
   def getDeclarations : Seq[String] = {
     for ((sym, info) <- symbols) yield {
       var attributeStrings : Seq[String] = Nil
-      attributeStrings ++:= sym.getType.getFortranAttributes
 
+      // It seems these properties need to go after the type-related attributes
       for(property <- sym.getProperties) property match {
         case (p: FortranProperty) => attributeStrings +:= p.getName
         case _ => ()
       }
+
+      attributeStrings ++:= sym.getType.getFortranAttributes
       attributeStrings.mkString(", ") + " :: " + info.getName
     }
   }.toSeq.sorted
-- 
2.47.3