1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
(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)]
()
)]
[]
)]
)
|
