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
|
FTNCHEK Version 3.1 May 2001
File model.f90:
1 ! AUTHORS: MIKE MYERS AND LUCIA SPAGNUOLO
2 ! DATE: MAY 8, 1989
3
4 ! Variables:
5 ! SCORE -> an array of test scores
6 ! SUM -> sum of the test scores
7 ! COUNT -> counter of scores read in
8 ! I -> loop counter
9
10 REAL FUNCTION COMPAV(SCORE,COUNT)
11 INTEGER SUM,COUNT,J,SCORE(5)
12
13 DO I = 1,COUNT
14 SUM = SUM + SCORE(I)
15 END DO
16 COMPAV = SUM/COUNT
^
Warning near line 16 col 10: integer quotient expr SUM/COUNT converted to
real
17 END FUNCTION COMPAV
18
Module COMPAV: func: real
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
COMPAV real COUNT intg I intg* J intg
SCORE intg 1 SUM intg
* Variable not declared. Type has been implicitly defined.
Warning in module COMPAV: Variables declared but never referenced:
J declared at line 11
Warning in module COMPAV: Variables may be used before set:
SUM used at line 14
SUM set at line 14
19
20 PROGRAM AVENUM
21 !
22 ! MAIN PROGRAM
23 !
24 ! AUTHOR: LOIS BIGBIE
25 ! DATE: MAY 15, 1990
26 !
27 ! Variables:
28 ! MAXNOS -> maximum number of input values
29 ! NUMS -> an array of numbers
30 ! COUNT -> exact number of input values
31 ! AVG -> average returned by COMPAV
32 ! I -> loop counter
33 !
34
35 PARAMETER(MAXNOS=5)
36 INTEGER I, COUNT
37 REAL NUMS(MAXNOS), AVG
38 COUNT = 0
39 DO I = 1,MAXNOS
40 READ (5,*,END=100) NUMS(I) ; COUNT = COUNT + 1
41
42 END DO
43 100 AVG = COMPAV(NUMS, COUNT)
44 END PROGRAM AVENUM
Module AVENUM: prog
External subprograms referenced:
COMPAV: real*
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
AVG real COUNT intg I intg MAXNOS intg*
NUMS real 1
* Variable not declared. Type has been implicitly defined.
Warning in module AVENUM: Variables set but never used:
AVG set at line 43
Statement labels defined:
Label Line StmtType
<100> 43 exec
0 syntax errors detected in file model.f90
6 warnings issued in file model.f90
Warning: Subprogram COMPAV argument data type mismatch at position 1:
Dummy arg SCORE in module COMPAV line 10 file model.f90 is type intg
Actual arg NUMS in module AVENUM line 43 file model.f90 is type real
|
