(TranslationUnit
    (SymbolTable
        1
        {
            complex_07:
                (Program
                    (SymbolTable
                        2
                        {
                            c1:
                                (Variable
                                    2
                                    c1
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Complex 8)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            i:
                                (Variable
                                    2
                                    i
                                    []
                                    Local
                                    (IntegerConstant 42 (Integer 4) Decimal)
                                    (IntegerConstant 42 (Integer 4) Decimal)
                                    Save
                                    (Integer 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            img_part:
                                (Variable
                                    2
                                    img_part
                                    []
                                    Local
                                    (RealConstant
                                        3.140000
                                        (Real 4)
                                    )
                                    (RealConstant
                                        3.140000
                                        (Real 4)
                                    )
                                    Parameter
                                    (Real 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            real_part:
                                (Variable
                                    2
                                    real_part
                                    []
                                    Local
                                    (IntegerConstant 42 (Integer 4) Decimal)
                                    (IntegerConstant 42 (Integer 4) Decimal)
                                    Parameter
                                    (Integer 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            x:
                                (Variable
                                    2
                                    x
                                    [real_part]
                                    Local
                                    (IntrinsicElementalFunction
                                        Cmplx
                                        [(Var 2 real_part)
                                        (RealConstant
                                            0.000000
                                            (Real 4)
                                        )
                                        (IntegerConstant 4 (Integer 4) Decimal)]
                                        0
                                        (Complex 4)
                                        (ComplexConstant
                                            42.000000
                                            0.000000
                                            (Complex 4)
                                        )
                                    )
                                    (ComplexConstant
                                        42.000000
                                        0.000000
                                        (Complex 4)
                                    )
                                    Save
                                    (Complex 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            x1:
                                (Variable
                                    2
                                    x1
                                    []
                                    Local
                                    (RealConstant
                                        3.140000
                                        (Real 4)
                                    )
                                    (RealConstant
                                        3.140000
                                        (Real 4)
                                    )
                                    Save
                                    (Real 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            x2:
                                (Variable
                                    2
                                    x2
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Complex 8)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            y:
                                (Variable
                                    2
                                    y
                                    [img_part]
                                    Local
                                    (IntrinsicElementalFunction
                                        Cmplx
                                        [(Var 2 img_part)
                                        (RealConstant
                                            0.000000
                                            (Real 4)
                                        )
                                        (IntegerConstant 4 (Integer 4) Decimal)]
                                        0
                                        (Complex 4)
                                        (ComplexConstant
                                            3.140000
                                            0.000000
                                            (Complex 4)
                                        )
                                    )
                                    (ComplexConstant
                                        3.140000
                                        0.000000
                                        (Complex 4)
                                    )
                                    Save
                                    (Complex 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            y2:
                                (Variable
                                    2
                                    y2
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Complex 8)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            z:
                                (Variable
                                    2
                                    z
                                    [real_part
                                    img_part]
                                    Local
                                    (IntrinsicElementalFunction
                                        Cmplx
                                        [(Var 2 real_part)
                                        (Var 2 img_part)
                                        (IntegerConstant 4 (Integer 4) Decimal)]
                                        0
                                        (Complex 4)
                                        (ComplexConstant
                                            42.000000
                                            3.140000
                                            (Complex 4)
                                        )
                                    )
                                    (ComplexConstant
                                        42.000000
                                        3.140000
                                        (Complex 4)
                                    )
                                    Save
                                    (Complex 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            z1:
                                (Variable
                                    2
                                    z1
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Complex 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                ),
                            z2:
                                (Variable
                                    2
                                    z2
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Complex 8)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                )
                        })
                    complex_07
                    []
                    [(Assignment
                        (Var 2 z1)
                        (IntrinsicElementalFunction
                            Cmplx
                            [(Var 2 i)
                            (Var 2 x1)
                            (IntegerConstant 4 (Integer 4) Decimal)]
                            0
                            (Complex 4)
                            ()
                        )
                        ()
                        .false.
                        .false.
                    )
                    (Assignment
                        (Var 2 c1)
                        (Cast
                            (ComplexConstructor
                                (IntegerConstant 12 (Integer 4) Decimal)
                                (IntegerConstant 24 (Integer 4) Decimal)
                                (Complex 4)
                                (ComplexConstant
                                    12.000000
                                    24.000000
                                    (Complex 4)
                                )
                            )
                            ComplexToComplex
                            (Complex 8)
                            (ComplexConstant
                                12.000000
                                24.000000
                                (Complex 8)
                            )
                            ()
                        )
                        ()
                        .false.
                        .false.
                    )
                    (Print
                        (StringFormat
                            ()
                            [(Var 2 c1)]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )
                    (Assignment
                        (Var 2 x2)
                        (IntrinsicElementalFunction
                            Cmplx
                            [(Var 2 real_part)
                            (RealConstant
                                0.000000
                                (Real 4)
                            )
                            (IntegerConstant 8 (Integer 4) Decimal)]
                            0
                            (Complex 8)
                            (ComplexConstant
                                42.000000
                                0.000000
                                (Complex 8)
                            )
                        )
                        ()
                        .false.
                        .false.
                    )
                    (Assignment
                        (Var 2 y2)
                        (IntrinsicElementalFunction
                            Cmplx
                            [(Var 2 img_part)
                            (RealConstant
                                0.000000
                                (Real 4)
                            )
                            (IntegerConstant 8 (Integer 4) Decimal)]
                            0
                            (Complex 8)
                            (ComplexConstant
                                3.140000
                                0.000000
                                (Complex 8)
                            )
                        )
                        ()
                        .false.
                        .false.
                    )
                    (Assignment
                        (Var 2 z2)
                        (IntrinsicElementalFunction
                            Cmplx
                            [(Var 2 real_part)
                            (Var 2 img_part)
                            (IntegerConstant 8 (Integer 4) Decimal)]
                            0
                            (Complex 8)
                            (ComplexConstant
                                42.000000
                                3.140000
                                (Complex 8)
                            )
                        )
                        ()
                        .false.
                        .false.
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (Var 2 x)
                                    Sub
                                    (ComplexConstructor
                                        (Var 2 real_part)
                                        (IntegerConstant 0 (Integer 4) Decimal)
                                        (Complex 4)
                                        (ComplexConstant
                                            42.000000
                                            0.000000
                                            (Complex 4)
                                        )
                                    )
                                    (Complex 4)
                                    ()
                                )]
                                0
                                (Real 4)
                                ()
                            )
                            Gt
                            (RealConstant
                                0.000010
                                (Real 4)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (Var 2 y)
                                    Sub
                                    (ComplexConstructor
                                        (Var 2 img_part)
                                        (IntegerConstant 0 (Integer 4) Decimal)
                                        (Complex 4)
                                        (ComplexConstant
                                            3.140000
                                            0.000000
                                            (Complex 4)
                                        )
                                    )
                                    (Complex 4)
                                    ()
                                )]
                                0
                                (Real 4)
                                ()
                            )
                            Gt
                            (RealConstant
                                0.000010
                                (Real 4)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (Var 2 z)
                                    Sub
                                    (ComplexConstructor
                                        (Var 2 real_part)
                                        (Var 2 img_part)
                                        (Complex 4)
                                        (ComplexConstant
                                            42.000000
                                            3.140000
                                            (Complex 4)
                                        )
                                    )
                                    (Complex 4)
                                    ()
                                )]
                                0
                                (Real 4)
                                ()
                            )
                            Gt
                            (RealConstant
                                0.000010
                                (Real 4)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (Var 2 x2)
                                    Sub
                                    (Cast
                                        (ComplexConstructor
                                            (Var 2 real_part)
                                            (IntegerConstant 0 (Integer 4) Decimal)
                                            (Complex 4)
                                            (ComplexConstant
                                                42.000000
                                                0.000000
                                                (Complex 4)
                                            )
                                        )
                                        ComplexToComplex
                                        (Complex 8)
                                        (ComplexConstant
                                            42.000000
                                            0.000000
                                            (Complex 8)
                                        )
                                        ()
                                    )
                                    (Complex 8)
                                    ()
                                )]
                                0
                                (Real 8)
                                ()
                            )
                            Gt
                            (Cast
                                (RealConstant
                                    0.000010
                                    (Real 4)
                                )
                                RealToReal
                                (Real 8)
                                (RealConstant
                                    0.000010
                                    (Real 8)
                                )
                                ()
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (Var 2 y2)
                                    Sub
                                    (Cast
                                        (ComplexConstructor
                                            (Var 2 img_part)
                                            (IntegerConstant 0 (Integer 4) Decimal)
                                            (Complex 4)
                                            (ComplexConstant
                                                3.140000
                                                0.000000
                                                (Complex 4)
                                            )
                                        )
                                        ComplexToComplex
                                        (Complex 8)
                                        (ComplexConstant
                                            3.140000
                                            0.000000
                                            (Complex 8)
                                        )
                                        ()
                                    )
                                    (Complex 8)
                                    ()
                                )]
                                0
                                (Real 8)
                                ()
                            )
                            Gt
                            (Cast
                                (RealConstant
                                    0.000010
                                    (Real 4)
                                )
                                RealToReal
                                (Real 8)
                                (RealConstant
                                    0.000010
                                    (Real 8)
                                )
                                ()
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (Var 2 z2)
                                    Sub
                                    (Cast
                                        (ComplexConstructor
                                            (Var 2 real_part)
                                            (Var 2 img_part)
                                            (Complex 4)
                                            (ComplexConstant
                                                42.000000
                                                3.140000
                                                (Complex 4)
                                            )
                                        )
                                        ComplexToComplex
                                        (Complex 8)
                                        (ComplexConstant
                                            42.000000
                                            3.140000
                                            (Complex 8)
                                        )
                                        ()
                                    )
                                    (Complex 8)
                                    ()
                                )]
                                0
                                (Real 8)
                                ()
                            )
                            Gt
                            (Cast
                                (RealConstant
                                    0.000010
                                    (Real 4)
                                )
                                RealToReal
                                (Real 8)
                                (RealConstant
                                    0.000010
                                    (Real 8)
                                )
                                ()
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (StringFormat
                            ()
                            [(IntrinsicElementalFunction
                                Cmplx
                                [(Var 2 i)
                                (RealConstant
                                    0.000000
                                    (Real 4)
                                )
                                (IntegerConstant 8 (Integer 4) Decimal)]
                                0
                                (Complex 8)
                                ()
                            )]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (IntrinsicElementalFunction
                                        Cmplx
                                        [(Var 2 i)
                                        (RealConstant
                                            0.000000
                                            (Real 4)
                                        )
                                        (IntegerConstant 8 (Integer 4) Decimal)]
                                        0
                                        (Complex 8)
                                        ()
                                    )
                                    Sub
                                    (Cast
                                        (ComplexConstructor
                                            (RealConstant
                                                42.000000
                                                (Real 4)
                                            )
                                            (RealConstant
                                                0.000000
                                                (Real 4)
                                            )
                                            (Complex 4)
                                            (ComplexConstant
                                                42.000000
                                                0.000000
                                                (Complex 4)
                                            )
                                        )
                                        ComplexToComplex
                                        (Complex 8)
                                        (ComplexConstant
                                            42.000000
                                            0.000000
                                            (Complex 8)
                                        )
                                        ()
                                    )
                                    (Complex 8)
                                    ()
                                )]
                                0
                                (Real 8)
                                ()
                            )
                            Gt
                            (Cast
                                (RealConstant
                                    0.000010
                                    (Real 4)
                                )
                                RealToReal
                                (Real 8)
                                (RealConstant
                                    0.000010
                                    (Real 8)
                                )
                                ()
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (StringFormat
                            ()
                            [(IntrinsicElementalFunction
                                Cmplx
                                [(Var 2 x1)
                                (RealConstant
                                    0.000000
                                    (Real 4)
                                )
                                (IntegerConstant 8 (Integer 4) Decimal)]
                                0
                                (Complex 8)
                                ()
                            )]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (IntrinsicElementalFunction
                                        Cmplx
                                        [(Var 2 x1)
                                        (RealConstant
                                            0.000000
                                            (Real 4)
                                        )
                                        (IntegerConstant 8 (Integer 4) Decimal)]
                                        0
                                        (Complex 8)
                                        ()
                                    )
                                    Sub
                                    (Cast
                                        (ComplexConstructor
                                            (RealConstant
                                                3.140000
                                                (Real 4)
                                            )
                                            (RealConstant
                                                0.000000
                                                (Real 4)
                                            )
                                            (Complex 4)
                                            (ComplexConstant
                                                3.140000
                                                0.000000
                                                (Complex 4)
                                            )
                                        )
                                        ComplexToComplex
                                        (Complex 8)
                                        (ComplexConstant
                                            3.140000
                                            0.000000
                                            (Complex 8)
                                        )
                                        ()
                                    )
                                    (Complex 8)
                                    ()
                                )]
                                0
                                (Real 8)
                                ()
                            )
                            Gt
                            (Cast
                                (RealConstant
                                    0.000010
                                    (Real 4)
                                )
                                RealToReal
                                (Real 8)
                                (RealConstant
                                    0.000010
                                    (Real 8)
                                )
                                ()
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (StringFormat
                            ()
                            [(IntrinsicElementalFunction
                                Cmplx
                                [(Var 2 z1)
                                (RealConstant
                                    0.000000
                                    (Real 4)
                                )
                                (IntegerConstant 8 (Integer 4) Decimal)]
                                0
                                (Complex 8)
                                ()
                            )]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (IntrinsicElementalFunction
                                        Cmplx
                                        [(Var 2 z1)
                                        (RealConstant
                                            0.000000
                                            (Real 4)
                                        )
                                        (IntegerConstant 8 (Integer 4) Decimal)]
                                        0
                                        (Complex 8)
                                        ()
                                    )
                                    Sub
                                    (Cast
                                        (ComplexConstructor
                                            (RealConstant
                                                42.000000
                                                (Real 4)
                                            )
                                            (RealConstant
                                                3.140000
                                                (Real 4)
                                            )
                                            (Complex 4)
                                            (ComplexConstant
                                                42.000000
                                                3.140000
                                                (Complex 4)
                                            )
                                        )
                                        ComplexToComplex
                                        (Complex 8)
                                        (ComplexConstant
                                            42.000000
                                            3.140000
                                            (Complex 8)
                                        )
                                        ()
                                    )
                                    (Complex 8)
                                    ()
                                )]
                                0
                                (Real 8)
                                ()
                            )
                            Gt
                            (Cast
                                (RealConstant
                                    0.000010
                                    (Real 4)
                                )
                                RealToReal
                                (Real 8)
                                (RealConstant
                                    0.000010
                                    (Real 8)
                                )
                                ()
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (StringFormat
                            ()
                            [(IntrinsicElementalFunction
                                Cmplx
                                [(Var 2 x1)
                                (Var 2 i)
                                (IntegerConstant 8 (Integer 4) Decimal)]
                                0
                                (Complex 8)
                                ()
                            )]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )
                    (If
                        ()
                        (RealCompare
                            (IntrinsicElementalFunction
                                Abs
                                [(ComplexBinOp
                                    (IntrinsicElementalFunction
                                        Cmplx
                                        [(Var 2 x1)
                                        (Var 2 i)
                                        (IntegerConstant 8 (Integer 4) Decimal)]
                                        0
                                        (Complex 8)
                                        ()
                                    )
                                    Sub
                                    (Cast
                                        (ComplexConstructor
                                            (RealConstant
                                                3.140000
                                                (Real 4)
                                            )
                                            (RealConstant
                                                42.000000
                                                (Real 4)
                                            )
                                            (Complex 4)
                                            (ComplexConstant
                                                3.140000
                                                42.000000
                                                (Complex 4)
                                            )
                                        )
                                        ComplexToComplex
                                        (Complex 8)
                                        (ComplexConstant
                                            3.140000
                                            42.000000
                                            (Complex 8)
                                        )
                                        ()
                                    )
                                    (Complex 8)
                                    ()
                                )]
                                0
                                (Real 8)
                                ()
                            )
                            Gt
                            (Cast
                                (RealConstant
                                    0.000010
                                    (Real 4)
                                )
                                RealToReal
                                (Real 8)
                                (RealConstant
                                    0.000010
                                    (Real 8)
                                )
                                ()
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (StringFormat
                            ()
                            [(Var 2 x)
                            (Var 2 y)
                            (Var 2 z)]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )]
                )
        })
    []
)
