ProgramFile {programFileMeta = MetaInfo {miVersion = Fortran90,
                                         miFilename = "test-data/small.f90"},
             programFileProgramUnits = [PUModule ()
                                                 (1:0)-(17:9)
                                                 "foo"
                                                 [BlStatement ()
                                                              (2:2)-(2:14)
                                                              Nothing
                                                              (StImplicit ()
                                                                          (2:2)-(2:14)
                                                                          Nothing),
                                                  BlComment ()
                                                            (3:2)-(3:10)
                                                            (Comment " comment"),
                                                  BlStatement ()
                                                              (4:2)-(4:13)
                                                              Nothing
                                                              (StDeclaration ()
                                                                             (4:2)-(4:13)
                                                                             (TypeSpec
                                                                                      {typeSpecAnno = (),
                                                                                       typeSpecSpan = (4:2)-(4:8),
                                                                                       typeSpecBaseType = TypeInteger,
                                                                                       typeSpecSelector = Nothing})
                                                                             Nothing
                                                                             (AList
                                                                                   {alistAnno = (),
                                                                                    alistSpan = (4:13)-(4:13),
                                                                                    alistList = [Declarator {declaratorAnno = (),
                                                                                                             declaratorSpan = (4:13)-(4:13),
                                                                                                             declaratorVariable = ExpValue ()
                                                                                                                                           (4:13)-(4:13)
                                                                                                                                           (ValVariable "i"),
                                                                                                             declaratorType = ScalarDecl,
                                                                                                             declaratorLength = Nothing,
                                                                                                             declaratorInitial = Nothing}]})),
                                                  BlStatement ()
                                                              (6:2)-(6:18)
                                                              Nothing
                                                              (StUse ()
                                                                     (6:2)-(6:18)
                                                                     (ExpValue ()
                                                                               (6:6)-(6:18)
                                                                               (ValVariable "iso_c_binding"))
                                                                     Nothing
                                                                     Permissive
                                                                     Nothing)]
                                                 (Just [PUSubroutine ()
                                                                     (9:0)-(13:13)
                                                                     (Nothing,
                                                                      Nothing)
                                                                     "main"
                                                                     Nothing
                                                                     [BlStatement ()
                                                                                  (10:2)-(10:13)
                                                                                  Nothing
                                                                                  (StDeclaration ()
                                                                                                 (10:2)-(10:13)
                                                                                                 (TypeSpec
                                                                                                          {typeSpecAnno = (),
                                                                                                           typeSpecSpan = (10:2)-(10:8),
                                                                                                           typeSpecBaseType = TypeInteger,
                                                                                                           typeSpecSelector = Nothing})
                                                                                                 Nothing
                                                                                                 (AList
                                                                                                       {alistAnno = (),
                                                                                                        alistSpan = (10:13)-(10:13),
                                                                                                        alistList = [Declarator {declaratorAnno = (),
                                                                                                                                 declaratorSpan = (10:13)-(10:13),
                                                                                                                                 declaratorVariable = ExpValue ()
                                                                                                                                                               (10:13)-(10:13)
                                                                                                                                                               (ValVariable "x"),
                                                                                                                                 declaratorType = ScalarDecl,
                                                                                                                                 declaratorLength = Nothing,
                                                                                                                                 declaratorInitial = Nothing}]})),
                                                                      BlStatement ()
                                                                                  (11:2)-(11:26)
                                                                                  Nothing
                                                                                  (StExpressionAssign ()
                                                                                                      (11:2)-(11:26)
                                                                                                      (ExpValue ()
                                                                                                                (11:2)-(11:2)
                                                                                                                (ValVariable "x"))
                                                                                                      (ExpBinary ()
                                                                                                                 (11:6)-(11:26)
                                                                                                                 Addition
                                                                                                                 (ExpFunctionCall ()
                                                                                                                                  (11:6)-(11:14)
                                                                                                                                  (ExpValue ()
                                                                                                                                            (11:6)-(11:11)
                                                                                                                                            (ValVariable "simple"))
                                                                                                                                  (AList
                                                                                                                                        {alistAnno = (),
                                                                                                                                         alistSpan = (11:13)-(11:13),
                                                                                                                                         alistList = [Argument {argumentAnno = (),
                                                                                                                                                                argumentSpan = (11:13)-(11:13),
                                                                                                                                                                argumentName = Nothing,
                                                                                                                                                                argumentExpr = ArgExpr (ExpValue ()
                                                                                                                                                                                                 (11:13)-(11:13)
                                                                                                                                                                                                 (ValVariable "k"))}]}))
                                                                                                                 (ExpFunctionCall ()
                                                                                                                                  (11:18)-(11:26)
                                                                                                                                  (ExpValue ()
                                                                                                                                            (11:18)-(11:23)
                                                                                                                                            (ValVariable "simple"))
                                                                                                                                  (AList
                                                                                                                                        {alistAnno = (),
                                                                                                                                         alistSpan = (11:25)-(11:25),
                                                                                                                                         alistList = [Argument {argumentAnno = (),
                                                                                                                                                                argumentSpan = (11:25)-(11:25),
                                                                                                                                                                argumentName = Nothing,
                                                                                                                                                                argumentExpr = ArgExpr (ExpValue ()
                                                                                                                                                                                                 (11:25)-(11:25)
                                                                                                                                                                                                 (ValInteger "1"
                                                                                                                                                                                                             Nothing))}]})))),
                                                                      BlStatement ()
                                                                                  (12:2)-(12:14)
                                                                                  Nothing
                                                                                  (StExpressionAssign ()
                                                                                                      (12:2)-(12:14)
                                                                                                      (ExpValue ()
                                                                                                                (12:2)-(12:2)
                                                                                                                (ValVariable "x"))
                                                                                                      (ExpFunctionCall ()
                                                                                                                       (12:6)-(12:14)
                                                                                                                       (ExpValue ()
                                                                                                                                 (12:6)-(12:11)
                                                                                                                                 (ValVariable "simple"))
                                                                                                                       (AList
                                                                                                                             {alistAnno = (),
                                                                                                                              alistSpan = (12:13)-(12:13),
                                                                                                                              alistList = [Argument {argumentAnno = (),
                                                                                                                                                     argumentSpan = (12:13)-(12:13),
                                                                                                                                                     argumentName = Nothing,
                                                                                                                                                     argumentExpr = ArgExpr (ExpValue ()
                                                                                                                                                                                      (12:13)-(12:13)
                                                                                                                                                                                      (ValVariable "j"))}]})))]
                                                                     Nothing,
                                                        PUFunction ()
                                                                   (14:0)-(16:11)
                                                                   Nothing
                                                                   (Nothing,
                                                                    Nothing)
                                                                   "simple"
                                                                   (Just AList {alistAnno = (),
                                                                                alistSpan = (14:16)-(14:16),
                                                                                alistList = [ExpValue ()
                                                                                                      (14:16)-(14:16)
                                                                                                      (ValVariable "x")]})
                                                                   (Just ExpValue ()
                                                                                  (14:26)-(14:26)
                                                                                  (ValVariable "i"))
                                                                   [BlStatement ()
                                                                                (15:2)-(15:13)
                                                                                Nothing
                                                                                (StDeclaration ()
                                                                                               (15:2)-(15:13)
                                                                                               (TypeSpec
                                                                                                        {typeSpecAnno = (),
                                                                                                         typeSpecSpan = (15:2)-(15:8),
                                                                                                         typeSpecBaseType = TypeInteger,
                                                                                                         typeSpecSelector = Nothing})
                                                                                               Nothing
                                                                                               (AList
                                                                                                     {alistAnno = (),
                                                                                                      alistSpan = (15:13)-(15:13),
                                                                                                      alistList = [Declarator {declaratorAnno = (),
                                                                                                                               declaratorSpan = (15:13)-(15:13),
                                                                                                                               declaratorVariable = ExpValue ()
                                                                                                                                                             (15:13)-(15:13)
                                                                                                                                                             (ValVariable "x"),
                                                                                                                               declaratorType = ScalarDecl,
                                                                                                                               declaratorLength = Nothing,
                                                                                                                               declaratorInitial = Nothing}]}))]
                                                                   Nothing])]}