(TranslationUnit
    [(Module
        modules_04_a
        (TriviaNode
            []
            [(EndOfLine)
            (EndOfLine)]
        )
        []
        [(ImplicitNone
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
        []
        [(Subroutine
            b
            []
            []
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            []
            []
            []
            []
            [(Print
                0
                ()
                [(String "b()")]
                ()
            )]
            []
            []
        )]
    )
    (Program
        modules_04
        ()
        [(Use
            [(SimpleAttribute
                AttrIntrinsic
            )]
            iso_fortran_env
            []
            .false.
            ()
        )]
        [(ImplicitNone
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
        [(SubroutineCall
            0
            f
            []
            []
            []
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        [(Subroutine
            f
            []
            []
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            [(Use
                []
                modules_04_a
                [(UseSymbol
                    b
                    ()
                )]
                .true.
                ()
            )]
            []
            []
            []
            [(SubroutineCall
                0
                b
                []
                []
                []
                []
                ()
            )]
            []
            []
        )
        (Function
            g
            []
            [(AttrType
                TypeInteger
                []
                ()
                ()
                None
            )]
            ()
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            [(Use
                []
                modules_04_a
                [(UseSymbol
                    b
                    ()
                )]
                .true.
                ()
            )]
            []
            []
            []
            [(SubroutineCall
                0
                b
                []
                []
                []
                []
                ()
            )
            (Assignment
                0
                g
                5
                ()
            )]
            []
            []
        )]
    )]
)
