File: assign.fcF

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 (94 lines) | stat: -rw-r--r-- 3,374 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

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
                 ^
Error near line 10 col 10 file assign.f: type mismatch: holl*5 const assigned
 to char*5 C5
     11       c5 = 11Hhello there
                 ^
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
     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
     41       x = r4
                ^
Warning near line 41 col 9 file assign.f:  real*4 R4 promoted to real X : may
 not give desired precision
     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
     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
     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
 18 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