(TranslationUnit
    (SymbolTable
        1
        {
            open_close_read_write:
                (Program
                    (SymbolTable
                        2
                        {
                            i:
                                (Variable
                                    2
                                    i
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Integer 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .true.
                                ),
                            msg:
                                (Variable
                                    2
                                    msg
                                    []
                                    Local
                                    (StringConstant
                                        "Some error occured"
                                        (String 1 18 () PointerString)
                                    )
                                    (StringConstant
                                        "Some error occured"
                                        (String 1 18 () PointerString)
                                    )
                                    Save
                                    (String 1 20 () PointerString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            p:
                                (Variable
                                    2
                                    p
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Array
                                        (Real 4)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (IntegerConstant 100 (Integer 4) Decimal))]
                                        FixedSizeArray
                                    )
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            q:
                                (Variable
                                    2
                                    q
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Array
                                        (Real 4)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (IntegerConstant 100 (Integer 4) Decimal))]
                                        FixedSizeArray
                                    )
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            u:
                                (Variable
                                    2
                                    u
                                    []
                                    Local
                                    (IntegerConstant 1 (Integer 4) Decimal)
                                    (IntegerConstant 1 (Integer 4) Decimal)
                                    Save
                                    (Integer 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .true.
                                ),
                            u_ptr:
                                (Variable
                                    2
                                    u_ptr
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Pointer
                                        (Integer 4)
                                    )
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            x:
                                (Variable
                                    2
                                    x
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Array
                                        (Real 4)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (IntegerConstant 100 (Integer 4) Decimal))]
                                        FixedSizeArray
                                    )
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            y:
                                (Variable
                                    2
                                    y
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (Array
                                        (Real 4)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (IntegerConstant 100 (Integer 4) Decimal))]
                                        FixedSizeArray
                                    )
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                )
                        })
                    open_close_read_write
                    []
                    [(Associate
                        (Var 2 u_ptr)
                        (Var 2 u)
                    )
                    (DoLoop
                        ()
                        ((Var 2 i)
                        (IntegerConstant 1 (Integer 4) Decimal)
                        (IntegerConstant 100 (Integer 4) Decimal)
                        ())
                        [(Assignment
                            (ArrayItem
                                (Var 2 x)
                                [(()
                                (Var 2 i)
                                ())]
                                (Real 4)
                                ColMajor
                                ()
                            )
                            (RealBinOp
                                (Cast
                                    (Var 2 i)
                                    IntegerToReal
                                    (Real 4)
                                    ()
                                )
                                Mul
                                (RealConstant
                                    0.100000
                                    (Real 4)
                                )
                                (Real 4)
                                ()
                            )
                            ()
                        )
                        (Assignment
                            (ArrayItem
                                (Var 2 y)
                                [(()
                                (Var 2 i)
                                ())]
                                (Real 4)
                                ColMajor
                                ()
                            )
                            (RealBinOp
                                (IntrinsicElementalFunction
                                    Sin
                                    [(ArrayItem
                                        (Var 2 x)
                                        [(()
                                        (Var 2 i)
                                        ())]
                                        (Real 4)
                                        ColMajor
                                        ()
                                    )]
                                    0
                                    (Real 4)
                                    ()
                                )
                                Mul
                                (RealBinOp
                                    (Cast
                                        (IntegerConstant 1 (Integer 4) Decimal)
                                        IntegerToReal
                                        (Real 4)
                                        (RealConstant
                                            1.000000
                                            (Real 4)
                                        )
                                    )
                                    Sub
                                    (IntrinsicElementalFunction
                                        Cos
                                        [(RealBinOp
                                            (ArrayItem
                                                (Var 2 x)
                                                [(()
                                                (Var 2 i)
                                                ())]
                                                (Real 4)
                                                ColMajor
                                                ()
                                            )
                                            Div
                                            (RealConstant
                                                3.000000
                                                (Real 4)
                                            )
                                            (Real 4)
                                            ()
                                        )]
                                        0
                                        (Real 4)
                                        ()
                                    )
                                    (Real 4)
                                    ()
                                )
                                (Real 4)
                                ()
                            )
                            ()
                        )]
                        []
                    )
                    (FileOpen
                        0
                        (Var 2 u_ptr)
                        (StringConstant
                            "data.dat"
                            (String 1 8 () PointerString)
                        )
                        (StringConstant
                            "replace"
                            (String 1 7 () PointerString)
                        )
                        ()
                    )
                    (DoLoop
                        ()
                        ((Var 2 i)
                        (IntegerConstant 1 (Integer 4) Decimal)
                        (IntegerConstant 100 (Integer 4) Decimal)
                        ())
                        [(FileWrite
                            0
                            (Var 2 u)
                            ()
                            ()
                            ()
                            [(StringFormat
                                (StringConstant
                                    "(10F8.2)"
                                    (String 1 8 () PointerString)
                                )
                                [(ArrayItem
                                    (Var 2 x)
                                    [(()
                                    (Var 2 i)
                                    ())]
                                    (Real 4)
                                    ColMajor
                                    ()
                                )
                                (ArrayItem
                                    (Var 2 y)
                                    [(()
                                    (Var 2 i)
                                    ())]
                                    (Real 4)
                                    ColMajor
                                    ()
                                )]
                                FormatFortran
                                (String -1 0 () PointerString)
                                ()
                            )]
                            ()
                            ()
                            ()
                        )]
                        []
                    )
                    (FileClose
                        0
                        (IntegerConstant 1 (Integer 4) Decimal)
                        (Var 2 u)
                        (Var 2 msg)
                        (IntegerConstant 999 (Integer 4) Decimal)
                        ()
                    )
                    (GoToTarget
                        999
                        999
                    )
                    (FileOpen
                        999
                        (IntegerConstant 2 (Integer 4) Decimal)
                        (StringConstant
                            "data.dat"
                            (String 1 8 () PointerString)
                        )
                        (StringConstant
                            "old"
                            (String 1 3 () PointerString)
                        )
                        ()
                    )
                    (DoLoop
                        ()
                        ((Var 2 i)
                        (IntegerConstant 1 (Integer 4) Decimal)
                        (IntegerConstant 100 (Integer 4) Decimal)
                        ())
                        [(FileRead
                            0
                            (IntegerConstant 2 (Integer 4) Decimal)
                            ()
                            ()
                            ()
                            ()
                            ()
                            [(ArrayItem
                                (Var 2 p)
                                [(()
                                (Var 2 i)
                                ())]
                                (Real 4)
                                ColMajor
                                ()
                            )
                            (ArrayItem
                                (Var 2 q)
                                [(()
                                (Var 2 i)
                                ())]
                                (Real 4)
                                ColMajor
                                ()
                            )]
                            ()
                        )]
                        []
                    )
                    (FileClose
                        0
                        (IntegerConstant 2 (Integer 4) Decimal)
                        ()
                        ()
                        ()
                        ()
                    )
                    (DoLoop
                        ()
                        ((Var 2 i)
                        (IntegerConstant 1 (Integer 4) Decimal)
                        (IntegerConstant 100 (Integer 4) Decimal)
                        ())
                        [(FileWrite
                            0
                            ()
                            ()
                            ()
                            ()
                            [(StringFormat
                                ()
                                [(ArrayItem
                                    (Var 2 p)
                                    [(()
                                    (Var 2 i)
                                    ())]
                                    (Real 4)
                                    ColMajor
                                    ()
                                )
                                (ArrayItem
                                    (Var 2 q)
                                    [(()
                                    (Var 2 i)
                                    ())]
                                    (Real 4)
                                    ColMajor
                                    ()
                                )]
                                FormatFortran
                                (String -1 0 () PointerString)
                                ()
                            )]
                            ()
                            ()
                            ()
                        )]
                        []
                    )]
                )
        })
    []
)
