(TranslationUnit
    [(Program
        write_01
        ()
        []
        [(ImplicitNone
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
        [(Write
            0
            [(())
            (())]
            []
            [(String "a")
            2]
            ()
        )
        (Write
            0
            [(())
            (())]
            []
            []
            ()
        )
        (Write
            0
            [(())]
            []
            [a]
            ()
        )
        (Write
            0
            [(out_str)
            ((String "(\" Found index \", i9,\" but item is not in list.\")"))]
            []
            [index]
            ()
        )
        (Write
            0
            [(out_string)
            (())]
            []
            [(String "Scalar_in = ")
            scalar_in]
            ()
        )
        (Write
            0
            [(out_string)
            (10)]
            []
            [int_src
            int_given
            int_expected]
            ()
        )
        (Write
            0
            [(string)]
            [(fmt
            (String "(f6.2)"))]
            [max_angle]
            ()
        )
        (Write
            0
            [(fmt)
            ((String "(\"(i\",i0,\".\",i0,\")\")"))]
            []
            [n
            n]
            ()
        )
        (Write
            0
            []
            [(unit
            ())
            (fmt
            (String "(a)"))]
            [(StrOp
                (StrOp
                    (FuncCallOrArray
                        trim
                        []
                        [(()
                        prog
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    Concat
                    (String ": ")
                )
                Concat
                message
            )]
            ()
        )
        (Write
            0
            []
            [(unit
            0)
            (fmt
            (String "(a,i4.4)"))]
            [(StrOp
                (StrOp
                    (String "Assertion failed at ")
                    Concat
                    file
                )
                Concat
                (String ":")
            )
            line]
            ()
        )
        (Write
            0
            [(())]
            [(fmt
            (String "(a,l1)"))]
            [(String "exactly_conservative= ")
            exactly_conservative]
            ()
        )
        (Write
            0
            []
            [(unit
            lun)]
            [vec]
            ()
        )
        (Write
            0
            [(())
            ((String "(a,a)"))]
            [(advance
            (String "no"))]
            [(FuncCallOrArray
                trim
                []
                [(()
                input_string
                ()
                0)]
                []
                []
                []
            )
            (String ": ")]
            ()
        )
        (Write
            0
            [(ounit)]
            [(FMT
            303)
            (ADVANCE
            (String "NO"))]
            []
            ()
        )
        (Write
            0
            [(())
            (201)]
            []
            [(ImpliedDoLoop
                [star]
                i
                1
                80
                ()
            )]
            ()
        )
        (Write
            0
            [(())
            ((String "(1X,A)"))]
            []
            [(String "Success!")]
            ()
        )
        (Write
            0
            [(ounit)
            (())]
            []
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Print
            0
            ()
            [(String "2")]
            ()
        )
        (Print
            0
            ()
            []
            ()
        )
        (Print
            0
            (String "(a, es22.14)")
            [(String "Ekin:     ")
            Ekin]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
    )]
)
