(TranslationUnit
    [(Program
        procedure_with_type
        ()
        []
        []
        [(Declaration
            (AttrType
                TypeProcedure
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(x
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeProcedure
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(y
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeProcedure
                []
                ()
                doubleprecision
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(yb
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeProcedure
                []
                ()
                integer
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(z
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeProcedure
                []
                ()
                real
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(a
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeProcedure
                []
                ()
                complex
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(b
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeProcedure
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(c
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrParameter
            )]
            [(dp
            []
            []
            ()
            (FuncCallOrArray
                kind
                []
                [(()
                (Real "0.d0")
                ()
                0)]
                []
                []
                []
            )
            Equal
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeProcedure
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(d
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeProcedure
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrPointer
            )]
            [(e
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        []
        []
    )]
)
