Generate "implicit none" in function.

diff --git a/src/ofc/codegen/FortranGenerator.scala b/src/ofc/codegen/FortranGenerator.scala
index b65eb94a32ff3abc0736c9f57df97ad9d29f101a..8c654078659a05382274bb6e7c235c44046f6e85 100644 (file)
--- a/src/ofc/codegen/FortranGenerator.scala
+++ b/src/ofc/codegen/FortranGenerator.scala
@@ -139,9 +139,10 @@ class FortranGenerator {
     processStatement(func.getBlock)
     prependLine("\n")
     prependLines(symbolManager.getDeclarations)
+    prependLine("implicit none")
     out
 
-    // parameters are only named after processing the body
+    // parameters are only named *after* processing the body
     val paramNames = func.getParameters.map(symbolManager.getName(_)) 
     val (header, footer) = func.getReturnType match {
       case (_: VoidType) => {
@@ -346,5 +347,4 @@ class FortranGenerator {
     for(line <- lines.reverse)
       prependLine(line)
   }
-
 }