(TranslationUnit
    [(Program
        interface_03
        ()
        []
        [(ImplicitNone
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        [(Interface
            (InterfaceHeader)
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            [(InterfaceProc
                (Subroutine
                    a1
                    [(a)]
                    []
                    ()
                    ()
                    []
                    []
                    []
                    [(Declaration
                        (AttrType
                            TypeInteger
                            []
                            ()
                            ()
                            None
                        )
                        [(AttrIntent
                            InOut
                        )]
                        [(a
                        []
                        []
                        ()
                        ()
                        None
                        ())]
                        ()
                    )]
                    []
                    []
                    []
                )
            )]
        )
        (Interface
            (InterfaceHeader)
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            [(InterfaceProc
                (Subroutine
                    a2
                    [(a)]
                    []
                    ()
                    (TriviaNode
                        []
                        [(EndOfLine)
                        (EndOfLine)]
                    )
                    []
                    []
                    []
                    [(Declaration
                        (AttrType
                            TypeInteger
                            []
                            ()
                            ()
                            None
                        )
                        [(AttrIntent
                            InOut
                        )]
                        [(a
                        []
                        []
                        ()
                        ()
                        None
                        ())]
                        ()
                    )]
                    []
                    []
                    []
                )
            )
            (InterfaceProc
                (Subroutine
                    a3
                    [(a)]
                    []
                    ()
                    ()
                    []
                    []
                    []
                    [(Declaration
                        (AttrType
                            TypeReal
                            []
                            ()
                            ()
                            None
                        )
                        [(AttrIntent
                            InOut
                        )]
                        [(a
                        []
                        []
                        ()
                        ()
                        None
                        ())]
                        ()
                    )]
                    []
                    []
                    []
                )
            )]
        )
        (Declaration
            (AttrType
                TypeProcedure
                []
                ()
                a1
                None
            )
            []
            [(sub
            []
            []
            ()
            ()
            None
            ())]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
        [(Subroutine
            X
            []
            []
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            []
            []
            []
            [(Interface
                (InterfaceHeader)
                ()
                [(InterfaceProc
                    (Subroutine
                        a4
                        [(a)]
                        []
                        ()
                        ()
                        []
                        []
                        []
                        [(Declaration
                            (AttrType
                                TypeInteger
                                []
                                ()
                                ()
                                None
                            )
                            [(AttrIntent
                                InOut
                            )]
                            [(a
                            []
                            []
                            ()
                            ()
                            None
                            ())]
                            ()
                        )]
                        []
                        []
                        []
                    )
                )]
            )]
            []
            []
            []
        )]
    )]
)
