File: dec-parameter.fcx

package info (click to toggle)
ftnchek 3.3.1-7
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 8,684 kB
  • sloc: ansic: 21,908; fortran: 5,748; yacc: 4,071; sh: 3,035; makefile: 895; lisp: 322; f90: 118; perl: 76
file content (105 lines) | stat: -rw-r--r-- 4,073 bytes parent folder | download | duplicates (5)
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

FTNCHEK Version 3.3 November 2004

File dec-parameter.f:

      1 C      IMPLICIT INTEGER(a-z)
      2 
      3       PARAMETER shipmoves=3
                        ^
"dec-parameter.f", line 3 col 17: Warning: Nonstandard syntax: PARAMETER
 implicitly typed differently from default type
              ^
"dec-parameter.f", line 3 col 7: Warning: Nonstandard syntax  : PARAMETER
 declaration without parentheses
      4       PARAMETER fightermoves=8
                        ^
"dec-parameter.f", line 4 col 17: Warning: Nonstandard syntax: PARAMETER
 implicitly typed differently from default type
              ^
"dec-parameter.f", line 4 col 7: Warning: Nonstandard syntax  : PARAMETER
 declaration without parentheses
      5       PARAMETER (stdparam = 7)
      6       INTEGER g2(100)
      7       INTEGER hits(15),tipe(15),crahit(15),craloc(15)
      8 
      9       BYTE      specal,pass
              ^
"dec-parameter.f", line 9 col 7: Warning: Nonstandard syntax
     10       BYTE      ab,ac,ad,ao,e,own1,own2,own      !AVOID WORD REFERENCES TO THESE
              ^
"dec-parameter.f", line 10 col 7: Warning: Nonstandard syntax
                                                         ^
"dec-parameter.f", line 10 col 50: Warning: Nonstandard syntax: inline comment
     11       INTEGER rlmap(3000)
     12       LOGICAL      automv,autosave,savedone
     13  
     14       COMMON/AB9/ab9,prior,nshprf
     15       COMMON/ARMTOT/armtot
     16       end
"dec-parameter.f", near line 16: Warning: Module contains no executable
 statements

Module %MAIN: prog

Common blocks referenced:

       AB9             ARMTOT         

Variables:
 
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
        AB intg1          AB9 real*           AC intg1           AD intg1  
        AO intg1       ARMTOT real*       AUTOMV logl      AUTOSAVE logl   
    CRAHIT intg  1     CRALOC intg  1          E intg1   FIGHTERMOVES intg   
        G2 intg  1       HITS intg  1     NSHPRF intg*          OWN intg1  
      OWN1 intg1         OWN2 intg1         PASS intg1        PRIOR real*  
     RLMAP intg  1   SAVEDONE logl     SHIPMOVES intg        SPECAL intg1  
  STDPARAM real*         TIPE intg  1

* Variable not declared. Type has been implicitly defined.


"dec-parameter.f", line 10: Warning in module %MAIN: Variables declared but
 never referenced:
"dec-parameter.f", line 10:     AB declared
"dec-parameter.f", line 10:     AC declared
"dec-parameter.f", line 10:     AD declared
"dec-parameter.f", line 10:     AO declared
"dec-parameter.f", line 12:     AUTOMV declared
"dec-parameter.f", line 12:     AUTOSAVE declared
"dec-parameter.f", line 7:     CRAHIT declared
"dec-parameter.f", line 7:     CRALOC declared
"dec-parameter.f", line 10:     E declared
"dec-parameter.f", line 6:     G2 declared
"dec-parameter.f", line 7:     HITS declared
"dec-parameter.f", line 10:     OWN declared
"dec-parameter.f", line 10:     OWN1 declared
"dec-parameter.f", line 10:     OWN2 declared
"dec-parameter.f", line 9:     PASS declared
"dec-parameter.f", line 11:     RLMAP declared
"dec-parameter.f", line 12:     SAVEDONE declared
"dec-parameter.f", line 9:     SPECAL declared
"dec-parameter.f", line 7:     TIPE declared

"dec-parameter.f", line 4: Warning in module %MAIN: Variables set but never
 used:
"dec-parameter.f", line 4:     FIGHTERMOVES set
"dec-parameter.f", line 3:     SHIPMOVES set
"dec-parameter.f", line 5:     STDPARAM set


"dec-parameter.f", line 12: Warning in module %MAIN: Names longer than 6 chars
 (nonstandard):
"dec-parameter.f", line 12:     AUTOSAVE declared
"dec-parameter.f", line 4:     FIGHTERMOVES declared
"dec-parameter.f", line 12:     SAVEDONE declared
"dec-parameter.f", line 3:     SHIPMOVES declared
"dec-parameter.f", line 5:     STDPARAM first occurrence

 0 syntax errors detected in file dec-parameter.f
 12 warnings issued in file dec-parameter.f

"dec-parameter.f", line 14: Warning: Common block AB9 unused anywhere

"dec-parameter.f", line 15: Warning: Common block ARMTOT unused anywhere