(TranslationUnit
    [(Program
        types_07
        ()
        []
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrTarget
            )]
            [(x
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(y
            []
            []
            ()
            x
            Arrow
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrTarget
            )]
            [(a
            [(1
            5
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(b
            [(()
            ()
            DimensionExpr)]
            []
            ()
            a
            Arrow
            ())]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
        [(Subroutine
            f
            [(s)
            (s2)]
            []
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            []
            []
            []
            [(Declaration
                (AttrType
                    TypeCharacter
                    [(len
                    ()
                    Colon)]
                    ()
                    ()
                    None
                )
                [(SimpleAttribute
                    AttrAllocatable
                )
                (AttrIntent
                    In
                )]
                [(s
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeCharacter
                    [(()
                    ()
                    Colon)]
                    ()
                    ()
                    None
                )
                [(SimpleAttribute
                    AttrAllocatable
                )
                (AttrIntent
                    In
                )]
                [(s2
                []
                []
                ()
                ()
                None
                ())]
                ()
            )]
            []
            []
            []
        )
        (Subroutine
            g
            [(s)
            (s2)]
            []
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            []
            []
            []
            [(Declaration
                (AttrType
                    TypeCharacter
                    [(len
                    ()
                    Star)]
                    ()
                    ()
                    None
                )
                [(AttrIntent
                    In
                )]
                [(s
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeCharacter
                    [(()
                    ()
                    Star)]
                    ()
                    ()
                    None
                )
                [(AttrIntent
                    In
                )]
                [(s2
                []
                []
                ()
                ()
                None
                ())]
                ()
            )]
            []
            []
            []
        )
        (Subroutine
            h
            [(s)
            (s2)]
            []
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            []
            []
            []
            [(Declaration
                (AttrType
                    TypeCharacter
                    [(len
                    80
                    Value)]
                    ()
                    ()
                    None
                )
                [(AttrIntent
                    In
                )]
                [(s
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeCharacter
                    [(()
                    80
                    Value)]
                    ()
                    ()
                    None
                )
                [(AttrIntent
                    In
                )]
                [(s2
                []
                []
                ()
                ()
                None
                ())]
                ()
            )]
            []
            []
            []
        )
        (Subroutine
            m
            [(s)
            (s2)]
            []
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            []
            []
            []
            [(Declaration
                (AttrType
                    TypeCharacter
                    [(len
                    (+ 40 40)
                    Value)]
                    ()
                    ()
                    None
                )
                [(AttrIntent
                    In
                )]
                [(s
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeCharacter
                    [(()
                    (- 100 20)
                    Value)]
                    ()
                    ()
                    None
                )
                [(AttrIntent
                    In
                )]
                [(s2
                []
                []
                ()
                ()
                None
                ())]
                ()
            )]
            []
            []
            []
        )]
    )]
)
