2
FTNCHEK Version 3.1 May 2001
6
1 C AUTHORS: MIKE MYERS AND LUCIA SPAGNUOLO
10
5 C SCORE -> an array of test scores
11
6 C SUM -> sum of the test scores
12
7 C COUNT -> counter of scores read in
15
10 REAL FUNCTION COMPAV(SCORE,COUNT)
16
11 INTEGER SUM,COUNT,J,SCORE(5)
19
14 SUM = SUM + SCORE(I)
23
Warning near line 16 col 20: integer quotient expr SUM/COUNT converted to
28
Module COMPAV: func: real
32
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
33
COMPAV real COUNT intg I intg* J intg
36
* Variable not declared. Type has been implicitly defined.
39
Warning in module COMPAV: Variables declared but never referenced:
42
Warning in module COMPAV: Variables may be used before set:
47
Statement labels defined:
57
24 C AUTHOR: LOIS BIGBIE
58
25 C DATE: MAY 15, 1990
61
28 C MAXNOS -> maximum number of input values
62
29 C NUMS -> an array of numbers
63
30 C COUNT -> exact number of input values
64
31 C AVG -> average returned by COMPAV
65
32 C I -> loop counter
68
35 PARAMETER(MAXNOS=5)
70
37 REAL NUMS(MAXNOS), AVG
73
40 READ (5,*,END=100) NUMS(I)
76
43 100 AVG = COMPAV(NUMS, COUNT)
81
External subprograms referenced:
87
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
88
AVG real COUNT intg I intg MAXNOS intg*
91
* Variable not declared. Type has been implicitly defined.
94
Warning in module AVENUM: Variables set but never used:
98
Statement labels defined:
100
Label Line StmtType Label Line StmtType
101
<80> 42 exec <100> 43 exec
104
0 syntax errors detected in file average.f
105
6 warnings issued in file average.f
107
Warning: Subprogram COMPAV argument data type mismatch at position 1:
108
Dummy arg SCORE in module COMPAV line 10 file average.f is type intg
109
Actual arg NUMS in module AVENUM line 43 file average.f is type real
added
removed
test/Okay/average.fcl
