(TranslationUnit
    [(Program
        types_09
        ()
        [(Use
            []
            iso_c_binding
            [(UseSymbol
                c_char
                ()
            )]
            .true.
            ()
        )]
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrParameter
            )]
            [(ucs4
            []
            []
            ()
            (FuncCallOrArray
                selected_char_kind
                []
                [(()
                (String "ISO_10646" ())
                ()
                0)]
                []
                []
                []
            )
            Equal
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeCharacter
                [(()
                1
                Value)
                (()
                ucs4
                Value)]
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrParameter
            )]
            [(nen
            []
            []
            ()
            (FuncCallOrArray
                char
                []
                [(()
                (FuncCallOrArray
                    int
                    []
                    [(()
                    (BOZ
                        "Z'5e74'"
                    )
                    ()
                    0)]
                    []
                    []
                    []
                )
                ()
                0)
                (()
                ucs4
                ()
                0)]
                []
                []
                []
            )
            Equal
            ())]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
        [(Subroutine
            f
            [(s)
            (s2)]
            []
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            []
            []
            []
            [(Declaration
                (AttrType
                    TypeCharacter
                    [(kind
                    c_char
                    Value)
                    (len
                    ()
                    Colon)]
                    ()
                    ()
                    None
                )
                [(SimpleAttribute
                    AttrAllocatable
                )
                (AttrIntent
                    In
                )]
                [(s
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeCharacter
                    [(len
                    ()
                    Colon)]
                    ()
                    ()
                    None
                )
                [(SimpleAttribute
                    AttrAllocatable
                )
                (AttrIntent
                    In
                )]
                [(s2
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeCharacter
                    [(kind
                    1
                    Value)
                    (len
                    ()
                    Star)]
                    ()
                    ()
                    None
                )
                [(SimpleAttribute
                    AttrParameter
                )]
                [(lowercase
                []
                []
                ()
                (String "abcdefghijklmnopqrstuvwxyz" ())
                Equal
                ())]
                ()
            )]
            []
            []
            []
        )
        (Subroutine
            s
            []
            []
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            [(Use
                [(SimpleAttribute
                    AttrIntrinsic
                )]
                iso_fortran_env
                [(UseSymbol
                    int32
                    ()
                )]
                .true.
                ()
            )]
            []
            []
            [(Declaration
                (AttrType
                    TypeInteger
                    [(()
                    int32
                    Value)]
                    ()
                    ()
                    None
                )
                []
                [(x
                []
                []
                ()
                1
                Equal
                ())]
                ()
            )]
            []
            []
            []
        )]
    )]
)
