File: assign.fcC

package info (click to toggle)
ftnchek 2.11.2-2
  • links: PTS
  • area: main
  • in suites: potato
  • size: 5,392 kB
  • ctags: 2,790
  • sloc: ansic: 21,570; fortran: 2,921; yacc: 2,794; sh: 1,623; makefile: 693; lisp: 264; awk: 163
file content (138 lines) | stat: -rw-r--r-- 5,123 bytes parent folder | download
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

FTNCHEK Version 2.11 July 1999

File assign.f:
      5       c1 = c5
                 ^
Warning near line 5 col 10 file assign.f:  char*5 C5 truncated to char*1 C1
     10       c5 = 5Hhello
                   ^
Warning near line 10 col 12 file assign.f: hollerith constant may not be
 portable
                 ^
Error near line 10 col 10 file assign.f: type mismatch: holl*5 const assigned
 to char*5 C5
     11       c5 = 11Hhello there
                   ^
Warning near line 11 col 12 file assign.f: hollerith constant may not be
 portable
                 ^
Error near line 11 col 10 file assign.f: type mismatch: holl*11 const assigned
 to char*5 C5
Warning in module SIZEPROP file assign.f:
   Variables declared but never referenced:
       C10                  I*                 X*        
  * Dummy argument

   Variables may be used before set:
        C5         

     16       parameter (m=7)
                          ^
Warning near line 16 col 19 file assign.f:  intg const truncated to intg*4 M
     31       i = m
                ^
Nonportable usage near line 31 col 9 file assign.f: mixed default and explicit 
precision items: intg*4 M assigned to intg I
     34       i = i2
                ^
Nonportable usage near line 34 col 9 file assign.f: mixed default and explicit 
precision items: intg*2 I2 assigned to intg I
     35       i = i4
                ^
Nonportable usage near line 35 col 9 file assign.f: mixed default and explicit 
precision items: intg*4 I4 assigned to intg I
     36       i4 = i
                 ^
Warning near line 36 col 10 file assign.f:  intg I truncated to intg*4 I4
     38       i2 = i4
                 ^
Warning near line 38 col 10 file assign.f:  intg*4 I4 truncated to intg*2 I2
     39       i = 4habcd
                  ^
Warning near line 39 col 11 file assign.f: hollerith constant may not be
 portable
                ^
Nonportable usage near line 39 col 9 file assign.f: mixed default and explicit 
size items: holl*4 const assigned to intg I
     40       i = 8habcdefgh
                  ^
Warning near line 40 col 11 file assign.f: hollerith constant may not be
 portable
                ^
Nonportable usage near line 40 col 9 file assign.f: mixed default and explicit 
size items: holl*8 const assigned to intg I
     41       x = r4
                ^
Warning near line 41 col 9 file assign.f:  real*4 R4 promoted to real X : may
 not give desired precision
     42       x = r8
                ^
Nonportable usage near line 42 col 9 file assign.f: mixed default and explicit 
precision items: real*8 R8 assigned to real X
     43       x = c
                ^
Warning near line 43 col 9 file assign.f:  cplx C truncated to real X
     44       d = x
                ^
Warning near line 44 col 9 file assign.f:  real X promoted to dble D : may not
 give desired precision
     45       x = d
                ^
Warning near line 45 col 9 file assign.f:  dble D truncated to real X
     47       d = z
                ^
Warning near line 47 col 9 file assign.f:  dcpx Z truncated to dble D
     48       r16 = d
                  ^
Nonportable usage near line 48 col 11 file assign.f: mixed default and
 explicit precision items: dble D assigned to real*16 R16
     49       r16 = r8
                  ^
Warning near line 49 col 11 file assign.f:  real*8 R8 promoted to real*16 R16 
: may not give desired precision
     50       d = r4
                ^
Warning near line 50 col 9 file assign.f:  real*4 R4 promoted to dble D : may
 not give desired precision
     51       d = r8
                ^
Warning near line 51 col 9 file assign.f:  real*8 R8 promoted to dble D : may
 not give desired precision
     52       d = r16
                ^
Nonportable usage near line 52 col 9 file assign.f: mixed default and explicit 
precision items: real*16 R16 assigned to dble D
     54       c = z
                ^
Warning near line 54 col 9 file assign.f:  dcpx Z truncated to cplx C
     55       i = L4
                ^
Error near line 55 col 9 file assign.f: type mismatch: logl*4 L4 assigned to 
intg I
Warning in module %MAIN file assign.f:
   Variables declared but never referenced:
       C16                C32                  J                  L         
        L2                  Y         

   Variables used before set:
        L4                 R4                 R8         

   Variables may be used before set:
         C                 I2                 I4         


 3 syntax errors detected in file assign.f
 30 warnings issued in file assign.f

Subprogram SIZEPROP:  argument data type mismatch
  at position 2:
    Dummy arg I is type intg  in module SIZEPROP line 2 file assign.f
    Actual arg I2 is type intg*2  in module %MAIN line 56 file assign.f
  at position 3:
    Dummy arg X is type real  in module SIZEPROP line 2 file assign.f
    Actual arg R16 is type real*16  in module %MAIN line 56 file assign.f
Subprogram SIZEPROP:  argument usage mismatch
  at position 1:
    Dummy arg CADJ is modified in module SIZEPROP line 2 file assign.f
    Actual arg 'hello' is const or expr in module %MAIN line 56 file assign.f