(TranslationUnit
    [(Subroutine
        a_proc
        []
        []
        ()
        (TriviaNode
            []
            [(EndOfLine)
            (EndOfLine)]
        )
        []
        []
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(i
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            ()
            [(SimpleAttribute
                AttrParameter
            )]
            [(i
            []
            []
            ()
            1
            Equal
            ())]
            ()
        )]
        [(Print
            0
            ()
            [i]
            ()
        )]
        []
        []
    )
    (Module
        parameter_02_a
        (TriviaNode
            []
            [(EndOfLine)
            (EndOfLine)]
        )
        []
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(i
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            ()
            [(SimpleAttribute
                AttrParameter
            )]
            [(i
            []
            []
            ()
            2
            Equal
            ())]
            ()
        )]
        []
        []
    )
    (Program
        parameter_02
        ()
        [(Use
            []
            parameter_02_a
            [(UseSymbol
                i
                ()
            )]
            .true.
            ()
        )]
        [(ImplicitNone
            []
            ()
        )]
        []
        [(SubroutineCall
            0
            a_proc
            []
            []
            []
            []
            ()
        )
        (Print
            0
            ()
            [i]
            ()
        )]
        []
    )]
)
