Place "allocatable" after type in declaration.

diff --git a/src/ofc/codegen/FortranGenerator.scala b/src/ofc/codegen/FortranGenerator.scala
index 09dad7536af926877f3f7d8e711e680ae4bcc2be..d1f6bf2a1d921130b26d812d1f99e7d18b309b7a 100644 (file)
--- 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