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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
FTNCHEK Version 3.3 November 2004
File keyvars.f:
1 dimension common(10,10),entry(3,4),read(5,6)
2 logical save, stop, program
3 character integer, data, endif, format(10)
4 integer external,implicit, intrinsic, pause, write(5,6)
5 real complex
6 external complex
7 data data /'!'/
8 implicit = none
9 assign = block
10 exit = assign
11 pointer = pointee
12 double = precision
13 precision = double
14 common(9,0) = continue ** dimension
15 do = double*else-end+enddo
16 entry(external,implicit) = intrinsic - pause
17 program = stop .and. save
18 if(character .lt. close) then
19 equivalence = endfile
20 else if (rewind - backspace .lt. common(1,2)) then
21 goto = do
22 if = logical
23 end if
24 if( print .eq. if) then = to
25 include = inquire
26 open = accept
27 read(5,6) write(1,2)
28 read(5,6) = write(1,2)
29 6 format(i10)
30 format(i10) = data
31 return = real
32 subroutine = then
33 call call(complex,endif)
34 integer = data
35 end
Module %MAIN: prog
External subprograms referenced:
CALL: subr COMPLEX: real
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
ACCEPT real* ASSIGN real* BACKSPACE real* BLOCK real*
CHARACTER real* CLOSE real* COMMON real* 2 CONTINUE real*
DATA char DIMENSION real* DO real* DOUBLE real*
ELSE real* END real* ENDDO real* ENDFILE real*
ENDIF char ENTRY real* 2 EQUIVALENCE real* EXIT real*
EXTERNAL intg FORMAT char 1 GOTO real* I10 intg*
IF intg* IMPLICIT intg INCLUDE intg* INQUIRE intg*
INTEGER char INTRINSIC intg LOGICAL intg* NONE intg*
OPEN real* PAUSE intg POINTEE real* POINTER real*
PRECISION real* PRINT real* PROGRAM logl READ real* 2
REAL real* RETURN real* REWIND real* SAVE logl
STOP logl SUBROUTINE real* THEN real* TO real*
WRITE intg 2
* Variable not declared. Type has been implicitly defined.
Warning in module %MAIN: Variables set but never used:
ENTRY set at line 16
EQUIVALENCE set at line 19
EXIT set at line 10
FORMAT set at line 30
GOTO set at line 21
INCLUDE set at line 25
INTEGER set at line 34
OPEN set at line 26
POINTER set at line 11
PROGRAM set at line 17
READ set at line 28
RETURN set at line 31
SUBROUTINE set at line 32
Warning in module %MAIN: Variables used before set
ACCEPT used at line 26; never set
BACKSPACE used at line 20; never set
BLOCK used at line 9; never set
CHARACTER used at line 18; never set
CLOSE used at line 18; never set
CONTINUE used at line 14; never set
DIMENSION used at line 14; never set
ELSE used at line 15; never set
END used at line 15; never set
ENDDO used at line 15; never set
ENDFILE used at line 19; never set
EXTERNAL used at line 16; never set
I10 used at line 30; never set
INQUIRE used at line 25; never set
INTRINSIC used at line 16; never set
LOGICAL used at line 22; never set
NONE used at line 8; never set
PAUSE used at line 16; never set
POINTEE used at line 11; never set
PRINT used at line 24; never set
REAL used at line 31; never set
REWIND used at line 20; never set
SAVE used at line 17; never set
STOP used at line 17; never set
TO used at line 24; never set
Warning in module %MAIN: Variables may be used before set:
PRECISION used at line 12
PRECISION set at line 13
Warning in module %MAIN: Names longer than 6 chars (nonstandard):
BACKSPACE first occurrence at line 20
CHARACTER first occurrence at line 18
COMPLEX defined at line 5
CONTINUE first occurrence at line 14
DIMENSION first occurrence at line 14
ENDFILE first occurrence at line 19
EQUIVALENCE first occurrence at line 19
EXTERNAL declared at line 4
IMPLICIT declared at line 4
INCLUDE first occurrence at line 25
INQUIRE first occurrence at line 25
INTEGER declared at line 3
INTRINSIC declared at line 4
LOGICAL first occurrence at line 22
POINTEE first occurrence at line 11
POINTER first occurrence at line 11
PRECISION first occurrence at line 12
PROGRAM declared at line 2
SUBROUTINE first occurrence at line 32
I/O Operations:
Unit ID Unit No. Access Form Operation Line
5 SEQ FMTD READ 27
Statement labels defined:
Label Line StmtType
<6> 29 format
36 subroutine call (function, character)
37 external function
38 character character
39 real = 2.3
40 complex = function(real)
41 return
42 end
Module CALL: subr
External subprograms referenced:
FUNCTION: real*
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
CHARACTER char COMPLEX real* REAL real*
* Variable not declared. Type has been implicitly defined.
Warning in module CALL: Variables declared but never referenced:
CHARACTER declared at line 38 (dummy argument)
Warning in module CALL: Variables set but never used:
COMPLEX set at line 40
Warning in module CALL: Names longer than 6 chars (nonstandard):
CHARACTER declared at line 38
COMPLEX first occurrence at line 40
FUNCTION defined at line 36
43 function complex(do)
44 dimension = do + 1
45 external = 1
46 complex = dimension/external
47 return
48 end
Module COMPLEX: func: real*
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
COMPLEX real* DIMENSION real* DO real* EXTERNAL real*
* Variable not declared. Type has been implicitly defined.
Warning in module COMPLEX: Names longer than 6 chars (nonstandard):
COMPLEX declared at line 43
DIMENSION first occurrence at line 44
EXTERNAL first occurrence at line 45
Nonportable usage: File contains tabs
0 syntax errors detected in file keyvars.f
12 warnings issued in file keyvars.f
|
