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
|
FTNCHEK Version 3.1 May 2001
File pure-function.f:
1 real function notpure(a,b,c)
2 real a,b,c
3 common /shared/ x,y,z
4 b = a + c
5 z = x + y
6 notpure = a*x + b*y + c*z
7 end
8
Module NOTPURE: func: real
Common blocks referenced:
SHARED
Warning in module NOTPURE at line 4: Function modifies argument B
Warning in module NOTPURE at line 5: Function modifies common variable Z
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
A real B real C real NOTPURE real
X real* Y real* Z real*
* Variable not declared. Type has been implicitly defined.
Warning in module NOTPURE: Names longer than 6 chars (nonstandard):
NOTPURE declared at line 1
0 syntax errors detected in file pure-function.f
4 warnings issued in file pure-function.f
No main program found
Warning: Common block SHARED Elements used but never set:
X Y
|
