(TranslationUnit
    [(Program
        implicit_program_lfortran
        ()
        []
        []
        [(Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            []
            [(u
            []
            []
            ()
            ()
            None
            ())
            (s
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            ()
            [(AttrDimension
                []
            )]
            [(u
            [(1
            100
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(j
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(Assignment
            0
            s
            (Real "0.0")
            ()
        )
        (DoLoop
            0
            ()
            1
            j
            1
            100
            ()
            [(Assignment
                0
                s
                (+ s (FuncCallOrArray
                    u
                    []
                    [(()
                    j
                    ()
                    0)]
                    []
                    []
                    []
                ))
                ()
            )
            (If
                0
                ()
                (>= s 1000000)
                [(GoTo
                    0
                    ()
                    2
                    []
                    ()
                )]
                []
                ()
                ()
                ()
            )
            (Continue
                1
                ()
            )]
            ()
            ()
        )
        (Stop
            0
            ()
            ()
            ()
        )
        (Continue
            2
            ()
        )]
        []
    )]
)
