(TranslationUnit
    (SymbolTable
        1
        {
            init_values:
                (Program
                    (SymbolTable
                        2
                        {
                            a:
                                (Variable
                                    2
                                    a
                                    [i
                                    j]
                                    Local
                                    (IntegerBinOp
                                        (Var 2 i)
                                        Add
                                        (Var 2 j)
                                        (Integer 4)
                                        (IntegerConstant 3 (Integer 4) Decimal)
                                    )
                                    (IntegerConstant 3 (Integer 4) Decimal)
                                    Parameter
                                    (Integer 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            b:
                                (Variable
                                    2
                                    b
                                    [l]
                                    Local
                                    (LogicalBinOp
                                        (Var 2 l)
                                        Or
                                        (LogicalConstant
                                            .true.
                                            (Logical 4)
                                        )
                                        (Logical 4)
                                        (LogicalConstant
                                            .true.
                                            (Logical 4)
                                        )
                                    )
                                    (LogicalConstant
                                        .true.
                                        (Logical 4)
                                    )
                                    Parameter
                                    (Logical 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            c:
                                (Variable
                                    2
                                    c
                                    []
                                    Local
                                    (ComplexConstructor
                                        (RealConstant
                                            3.000000
                                            (Real 4)
                                        )
                                        (RealConstant
                                            4.000000
                                            (Real 4)
                                        )
                                        (Complex 4)
                                        (ComplexConstant
                                            3.000000
                                            4.000000
                                            (Complex 4)
                                        )
                                    )
                                    (ComplexConstant
                                        3.000000
                                        4.000000
                                        (Complex 4)
                                    )
                                    Parameter
                                    (Complex 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            i:
                                (Variable
                                    2
                                    i
                                    []
                                    Local
                                    (Cast
                                        (RealConstant
                                            1.000000
                                            (Real 4)
                                        )
                                        RealToInteger
                                        (Integer 4)
                                        (IntegerConstant 1 (Integer 4) Decimal)
                                        ()
                                    )
                                    (IntegerConstant 1 (Integer 4) Decimal)
                                    Parameter
                                    (Integer 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            j:
                                (Variable
                                    2
                                    j
                                    []
                                    Local
                                    (Cast
                                        (RealConstant
                                            2.000000
                                            (Real 4)
                                        )
                                        RealToInteger
                                        (Integer 4)
                                        (IntegerConstant 2 (Integer 4) Decimal)
                                        ()
                                    )
                                    (IntegerConstant 2 (Integer 4) Decimal)
                                    Parameter
                                    (Integer 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            l:
                                (Variable
                                    2
                                    l
                                    [a]
                                    Local
                                    (IntegerCompare
                                        (Var 2 a)
                                        Eq
                                        (IntegerConstant 3 (Integer 4) Decimal)
                                        (Logical 4)
                                        (LogicalConstant
                                            .true.
                                            (Logical 4)
                                        )
                                    )
                                    (LogicalConstant
                                        .true.
                                        (Logical 4)
                                    )
                                    Parameter
                                    (Logical 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            r:
                                (Variable
                                    2
                                    r
                                    []
                                    Local
                                    (RealConstant
                                        4.000000
                                        (Real 4)
                                    )
                                    (RealConstant
                                        4.000000
                                        (Real 4)
                                    )
                                    Parameter
                                    (Real 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            r_minus:
                                (Variable
                                    2
                                    r_minus
                                    [r]
                                    Local
                                    (RealUnaryMinus
                                        (Var 2 r)
                                        (Real 4)
                                        (RealConstant
                                            -4.000000
                                            (Real 4)
                                        )
                                    )
                                    (RealConstant
                                        -4.000000
                                        (Real 4)
                                    )
                                    Parameter
                                    (Real 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            s:
                                (Variable
                                    2
                                    s
                                    [s1
                                    s2]
                                    Local
                                    (IntrinsicElementalFunction
                                        StringConcat
                                        [(Var 2 s1)
                                        (Var 2 s2)]
                                        0
                                        (String 1 (IntegerConstant 4 (Integer 8) Decimal) ExpressionLength DescriptorString)
                                        (StringConstant
                                            "left"
                                            (String 1 (IntegerConstant 4 (Integer 8) Decimal) ExpressionLength DescriptorString)
                                        )
                                    )
                                    (StringConstant
                                        "left"
                                        (String 1 (IntegerConstant 4 (Integer 8) Decimal) ExpressionLength DescriptorString)
                                    )
                                    Parameter
                                    (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            s1:
                                (Variable
                                    2
                                    s1
                                    []
                                    Local
                                    (StringConstant
                                        "l"
                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    )
                                    (StringConstant
                                        "l"
                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    )
                                    Parameter
                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            s2:
                                (Variable
                                    2
                                    s2
                                    []
                                    Local
                                    (StringConstant
                                        "eft"
                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    )
                                    (StringConstant
                                        "eft"
                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    )
                                    Parameter
                                    (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                )
                        })
                    init_values
                    []
                    [(Print
                        (StringFormat
                            ()
                            [(Var 2 i)
                            (Var 2 j)
                            (Var 2 r)
                            (Var 2 c)
                            (Var 2 a)
                            (Var 2 l)
                            (Var 2 b)
                            (Var 2 r_minus)
                            (Var 2 s)]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )]
                )
        })
    []
)
