fortran-src-0.16.6: test-data/small.f90.expected
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])]}