(TranslationUnit
    [(Program
        attributes1
        (TriviaNode
            [(EndOfLine)
            (Comment
                "! test for AST(to fmt) only"
            )]
            []
        )
        []
        []
        [(Declaration
            (AttrType
                TypeCharacter
                [(len
                4
                Value)]
                ()
                ()
                None
            )
            []
            [(a
            []
            []
            ()
            ()
            None
            ())
            (b
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeCharacter
                []
                ()
                ()
                None
            )
            [(AttrIntent
                In
            )]
            [(str
            []
            []
            ()
            ()
            DoubleAsterisk
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeCharacter
                [(len
                1
                Value)
                (kind
                c_char
                Value)]
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrTarget
            )
            (AttrBind
                (Bind
                    [C]
                    [(name
                    (String "_binary_fclKernels_cl_start"))]
                )
            )]
            [(fclKernelStart
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeCharacter
                [(len
                3
                Value)]
                ()
                ()
                None
            )
            []
            [(c
            [(1
            2
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrVolatile
            )]
            [(d
            []
            []
            ()
            ()
            None
            ())
            (e
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrExternal
            )]
            [(g
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            ()
            [(AttrEquivalence
                [([a
                (FuncCallOrArray
                    c
                    []
                    [(()
                    1
                    ()
                    0)]
                    []
                    []
                    []
                )])
                ([b
                (FuncCallOrArray
                    c
                    []
                    [(()
                    2
                    ()
                    0)]
                    []
                    []
                    []
                )])]
            )]
            []
            ()
        )
        (DerivedType
            details
            []
            ()
            []
            [(Declaration
                ()
                [(SimpleAttribute
                    AttrSequence
                )]
                []
                ()
            )
            (Declaration
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                []
                [(age
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeCharacter
                    [(()
                    50
                    Value)]
                    ()
                    ()
                    None
                )
                []
                [(name
                []
                []
                ()
                ()
                None
                ())]
                ()
            )]
            [(DerivedTypeProc
                ()
                [(AttrPass
                    ()
                )]
                [(UseSymbol
                    sample
                    name
                )]
                ()
            )]
        )
        (Declaration
            ()
            [(SimpleAttribute
                AttrIntrinsic
            )]
            [(sin
            []
            []
            ()
            ()
            None
            ())
            (cos
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeDoublePrecision
                []
                ()
                ()
                None
            )
            [(AttrIntent
                In
            )]
            [(x
            [(()
            ()
            AssumedRank)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeType
                []
                (AttrType
                    TypeReal
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                ()
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(x
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeType
                []
                (AttrType
                    TypeInteger
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                ()
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(x
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeType
                []
                (AttrType
                    TypeCharacter
                    [(len
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                ()
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(x
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeType
                []
                (AttrType
                    TypeLogical
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                ()
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(x
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeType
                []
                (AttrType
                    TypeComplex
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                ()
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(x
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            ()
            [(SimpleAttribute
                AttrSave
            )]
            [(zzrayc
            []
            []
            ()
            ()
            Slash
            ())]
            ()
        )]
        []
        []
    )]
)
