(TranslationUnit
    [(Program
        arrays_02
        ()
        []
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrParameter
            )]
            [(dp
            []
            []
            ()
            (FuncCallOrArray
                kind
                []
                [(()
                (Real "0.d0")
                ()
                0)]
                []
                []
                []
            )
            Equal
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                [(()
                dp
                Value)]
                ()
                ()
                None
            )
            []
            [(a
            [(1
            3
            DimensionExpr)]
            []
            ()
            ()
            None
            ())
            (b
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(Assignment
            0
            (FuncCallOrArray
                a
                []
                [(()
                1
                ()
                0)]
                []
                []
                []
            )
            (Real "3._dp")
            ()
        )
        (Assignment
            0
            (FuncCallOrArray
                a
                []
                [(()
                2
                ()
                0)]
                []
                []
                []
            )
            (Real "2._dp")
            ()
        )
        (Assignment
            0
            (FuncCallOrArray
                a
                []
                [(()
                3
                ()
                0)]
                []
                []
                []
            )
            (Real "1._dp")
            ()
        )
        (Assignment
            0
            b
            (FuncCallOrArray
                sum
                []
                [(()
                a
                ()
                0)]
                []
                []
                []
            )
            ()
        )
        (If
            0
            ()
            (> (FuncCallOrArray
                abs
                []
                [(()
                (- b (Real "6._dp"))
                ()
                0)]
                []
                []
                []
            ) (Real "1e-12_dp"))
            [(ErrorStop
                0
                ()
                ()
                ()
            )]
            []
            ()
            ()
            ()
        )]
        []
    )]
)
