(TranslationUnit
    [(Subroutine
        f
        []
        []
        ()
        ()
        [(Use
            []
            iso_c_binding
            [(UseSymbol
                c_loc
                ()
            )
            (UseSymbol
                c_f_pointer
                ()
            )]
            .true.
            ()
        )]
        []
        []
        []
        [(Print
            0
            ()
            [(String "OK" ())]
            ()
        )]
        []
        []
    )
    (Function
        g
        []
        [(AttrType
            TypeInteger
            []
            ()
            ()
            None
        )]
        ()
        ()
        ()
        [(Use
            []
            iso_c_binding
            [(UseSymbol
                c_loc
                ()
            )
            (UseSymbol
                c_f_pointer
                ()
            )]
            .true.
            ()
        )]
        []
        []
        []
        [(Print
            0
            ()
            [(String "OK" ())]
            ()
        )
        (Assignment
            0
            g
            5
            ()
        )]
        []
        []
    )]
)
