(TranslationUnit
    [(Program
        implicit1
        (TriviaNode
            [(EndOfLine)
            (Comment
                "! AST only"
            )]
            []
        )
        []
        [(ImplicitNone
            []
            ()
        )
        (ImplicitNone
            []
            ()
        )
        (ImplicitNone
            []
            ()
        )
        (ImplicitNone
            [(ImplicitNoneExternal
                0
            )]
            ()
        )
        (ImplicitNone
            [(ImplicitNoneType)]
            ()
        )
        (ImplicitNone
            [(ImplicitNoneExternal
                0
            )
            (ImplicitNoneType)]
            ()
        )
        (ImplicitNone
            [(ImplicitNoneType)
            (ImplicitNoneExternal
                0
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeReal
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    h
                )
                (LetterSpec
                    o
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeReal
                    [(()
                    dp
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    h
                )
                (LetterSpec
                    o
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeReal
                    [(()
                    8
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    h
                )
                (LetterSpec
                    o
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeReal
                    [(()
                    8
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    h
                )
                (LetterSpec
                    o
                    z
                )]
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeDoublePrecision
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    h
                )
                (LetterSpec
                    o
                    z
                )]
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeCharacter
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    c
                )
                (LetterSpec
                    o
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeCharacter
                    [(()
                    id
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    z
                )]
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    i
                    n
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    i
                )
                (LetterSpec
                    ()
                    j
                )
                (LetterSpec
                    ()
                    k
                )
                (LetterSpec
                    ()
                    l
                )
                (LetterSpec
                    ()
                    m
                )
                (LetterSpec
                    ()
                    n
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    i
                )
                (LetterSpec
                    j
                    l
                )
                (LetterSpec
                    ()
                    m
                )
                (LetterSpec
                    ()
                    n
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    [(()
                    dp
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    h
                )
                (LetterSpec
                    o
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    [(()
                    8
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    i
                )
                (LetterSpec
                    j
                    l
                )
                (LetterSpec
                    ()
                    m
                )
                (LetterSpec
                    ()
                    n
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    A
                )
                (LetterSpec
                    ()
                    C
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    [(()
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    C
                )
                (LetterSpec
                    D
                    x
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    [(()
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    C
                )
                (LetterSpec
                    D
                    x
                )]
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeLogical
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    l
                )
                (LetterSpec
                    u
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeLogical
                    [(()
                    dp
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    h
                )
                (LetterSpec
                    o
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeLogical
                    [(()
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    l
                )
                (LetterSpec
                    u
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeLogical
                    [(()
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    l
                )
                (LetterSpec
                    u
                    z
                )]
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeComplex
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeComplex
                    [(()
                    dp
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    h
                )
                (LetterSpec
                    o
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeComplex
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    C
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeComplex
                    [(()
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeComplex
                    [(()
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    z
                )]
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeType
                    []
                    ()
                    BLOB
                    None
                )
                [(LetterSpec
                    ()
                    A
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeClass
                    []
                    ()
                    X
                    None
                )
                [(LetterSpec
                    A
                    b
                )]
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeReal
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    a
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeReal
                    [(()
                    (+ 4 4)
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    b
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeReal
                    [(()
                    d
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    d
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeReal
                    [(()
                    (FuncCallOrArray
                        d
                        []
                        [(()
                        2
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    a
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeInteger
                    [(()
                    (+ 4 4)
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    b
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeInteger
                    [(()
                    d
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    d
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeInteger
                    [(()
                    (FuncCallOrArray
                        d
                        []
                        [(()
                        2
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeLogical
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    a
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeLogical
                    [(()
                    (+ 4 4)
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    b
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeLogical
                    [(()
                    d
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    d
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeLogical
                    [(()
                    (FuncCallOrArray
                        d
                        []
                        [(()
                        2
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeComplex
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    a
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeComplex
                    [(()
                    (+ 4 4)
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    b
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeComplex
                    [(()
                    d
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    d
                )]
            )
            (ImplicitSpec
                (AttrType
                    TypeComplex
                    [(()
                    (FuncCallOrArray
                        d
                        []
                        [(()
                        2
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeCharacter
                    [(kind
                    c_char
                    Value)
                    (len
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    a
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeCharacter
                    [(len
                    4
                    Value)
                    (kind
                    c_char
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    a
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeCharacter
                    [(kind
                    c_char
                    Value)]
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    ()
                    a
                )]
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)
                (EndOfLine)]
            )
        )]
        []
        []
        []
    )]
)
