automatic and static

Author: dorchard

src/Language/Fortran/Parser/Free/Fortran90.y

@@ -94,6 +94,8 @@ import Data.Maybe ( fromJust, isNothing, isJust )
   endstructure                { TEndStructure _ }
   endunion                    { TEndUnion _ }
   endmap                      { TEndMap _ }
+  automatic                   { TAutomatic _ }
+  static                      { TStatic _ }
   contains                    { TContains _ }
   use                         { TUse _ }
   only                        { TOnly _ }
@@ -537,6 +539,12 @@ NONEXECUTABLE_STATEMENT :: { Statement A0 }
   { let TBlob s blob = $2 in StFormatBogus () (getTransSpan $1 s) blob }
 | structure MAYBE_NAME NEWLINE STRUCTURE_DECLARATIONS endstructure
   { StStructure () (getTransSpan $1 $5) $2 (fromReverseList $4) }
+| automatic INITIALIZED_DECLARATOR_LIST
+  { let alist = fromReverseList $2
+    in StAutomatic () (getTransSpan $1 alist) alist }
+| static INITIALIZED_DECLARATOR_LIST
+  { let alist = fromReverseList $2
+    in StStatic () (getTransSpan $1 alist) alist }
 
 MAYBE_NAME :: { Maybe Name }
 : '/' NAME '/' { Just $2 }

src/Language/Fortran/Parser/Free/Lexer.x

@@ -152,6 +152,8 @@ tokens :-
 <0> "end"\ *"union" / { legacy90P }               { addSpan TEndUnion }
 <0> "map"                                         { addSpan TMap }
 <0> "end"\ *"map"                                 { addSpan TEndMap }
+<0> "automatic" / { legacy90P }                    { addSpan TAutomatic }
+<0> "static" / { legacy90P }                       { addSpan TStatic }
 
 -- Type def related
 <0,scT> "type"                                    { addSpan TType }
@@ -1276,6 +1278,8 @@ data Token =
   | TEndUnion           SrcSpan
   | TMap                SrcSpan
   | TEndMap             SrcSpan
+  | TAutomatic          SrcSpan
+  | TStatic             SrcSpan
   -- language-binding-spec
   | TBind               SrcSpan
   | TC                  SrcSpan

src/Language/Fortran/Util/Files.hs

@@ -12,7 +12,7 @@ import qualified Data.Text.Encoding         as T
 import qualified Data.Text.Encoding.Error   as T
 import qualified Data.ByteString.Char8      as B
 import           System.Directory (listDirectory, canonicalizePath,
-                                   doesDirectoryExist, getDirectoryContents)
+                                   doesDirectoryExist, getDirectoryContents, doesFileExist)
 import           System.FilePath  ((</>), takeExtension)
 import           System.IO.Temp   (withSystemTempDirectory)
 import           System.Process   (callProcess)