(TranslationUnit
    [(Program
        open1
        (TriviaNode
            [(EndOfLine)
            (Comment
                "! Tests for syntax (AST) only:"
            )]
            []
        )
        []
        []
        []
        [(Open
            0
            []
            [(file
            (String "p_cc"))
            (newunit
            u)]
            ()
        )
        (Open
            0
            [task_lun]
            [(file
            taskfile)]
            ()
        )
        (Open
            0
            []
            [(unit
            gmv_lun)
            (FILE
            fname)
            (IOSTAT
            ier)
            (POSITION
            (String "rewind"))]
            ()
        )
        (Open
            0
            []
            [(newunit
            lun [(this
            [])])
            (file
            outfile)
            (status
            (String "replace"))
            (iostat
            ios)]
            ()
        )
        (Open
            0
            []
            [(unit
            10)
            (file
            (String "test1.inp"))
            (position
            (String "rewind"))
            (action
            (String "read"))
            (status
            (String "old"))]
            ()
        )
        (Open
            0
            []
            [(UNIT
            funit)
            (FILE
            tname)
            (STATUS
            fstat)
            (ACCESS
            (String "SEQUENTIAL"))
            (ACTION
            faction)
            (IOSTAT
            ierr)]
            ()
        )]
        []
    )]
)
