(TranslationUnit
    [(Program
        data_14
        ()
        []
        []
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrParameter
            )]
            [(n
            []
            []
            ()
            4
            Equal
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            [(AttrDimension
                [(1
                n
                DimensionExpr)]
            )]
            [(arr
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(DataStmt
            0
            [(DataStmtSet
                [(DataImpliedDo
                    [(FuncCallOrArray
                        arr
                        []
                        [(()
                        i
                        ()
                        0)]
                        []
                        []
                        []
                    )]
                    (AttrType
                        TypeInteger
                        []
                        ()
                        ()
                        None
                    )
                    i
                    1
                    n
                    ()
                )]
                [(Real "0.0")
                (Real "0.0")
                (Real "0.0")
                (Real "0.0")]
            )]
            ()
        )
        (Print
            0
            ()
            [arr]
            ()
        )]
        []
    )]
)
