(TranslationUnit
    [(Program
        builtin_01
        (TriviaNode
            [(EndOfLine)
            (Comment
                "! AST only tests"
            )]
            []
        )
        []
        [(ImplicitNone
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
        [(Inquire
            0
            []
            [(unit
            n)
            (opened
            inuse)]
            []
            ()
        )
        (Inquire
            0
            []
            [(UNIT
            JOAN)
            (OPENED
            LOG_01)
            (NAMED
            LOG_02)
            (FORM
            CHAR_VAR)
            (IOSTAT
            IOS)]
            []
            ()
        )
        (Inquire
            0
            []
            [(IOLENGTH
            IOL)]
            [(FuncCallOrArray
                A
                []
                [(1
                N
                1
                0)]
                []
                []
                []
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Rewind
            0
            [s]
            []
            ()
        )
        (Rewind
            0
            [s]
            []
            ()
        )
        (Rewind
            0
            [10]
            []
            ()
        )
        (Rewind
            0
            []
            [(err
            label)
            (unit
            s)]
            ()
        )
        (Rewind
            0
            [(FuncCallOrArray
                iunit
                []
                [(()
                13
                ()
                0)]
                []
                []
                []
            )]
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Backspace
            0
            [u]
            []
            ()
        )
        (Backspace
            0
            [io_unit]
            []
            ()
        )
        (Backspace
            0
            [10]
            []
            ()
        )
        (Backspace
            0
            [10]
            [(IOSTAT
            N)]
            ()
        )
        (Backspace
            0
            [(FuncCallOrArray
                iunit
                []
                [(()
                13
                ()
                0)]
                []
                []
                []
            )]
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Endfile
            0
            [K]
            []
            ()
        )
        (Endfile
            0
            [5]
            []
            ()
        )
        (Endfile
            0
            [k]
            []
            ()
        )
        (Endfile
            0
            [10]
            [(iostat
            n)]
            ()
        )
        (Endfile
            0
            []
            [(unit
            iout)
            (iostat
            ios)
            (iomsg
            msg)]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
    )]
)
