(TranslationUnit
    [(Program
        array7
        ()
        []
        [(Implicit
            [(ImplicitSpec
                (AttrType
                    TypeDoublePrecision
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    A
                    H
                )
                (LetterSpec
                    O
                    Z
                )]
            )]
            ()
        )
        (Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    I
                    N
                )]
            )]
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrParameter
            )]
            [(n
            []
            []
            ()
            10
            Equal
            ())]
            ()
        )
        (Declaration
            ()
            [(AttrDimension
                []
            )]
            [(SJ
            [(0
            N
            DimensionExpr)]
            []
            ()
            ()
            None
            ())
            (DJ
            [(0
            N
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )]
        []
        []
    )]
)
