← Back to branch summary

~ubuntu-branches/ubuntu/edgy/ftnchek/edgy

« back to all changes in this revision

Viewing changes to test/Okay/rc.fcl

  • Committer: Bazaar Package Importer
  • Author(s): Mark Brown
  • Date: 2002-03-28 10:49:50 UTC
  • Revision ID: james.westby@ubuntu.com-20020328104950-kssfxlf8u0qsfelr
Tags: upstream-3.1.2
Import upstream version 3.1.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/Okay/rc.fcl
 
1
 
 
2
FTNCHEK Version 3.1 May 2001
 
3
 
 
4
File do_enddo.f:
 
5
 
 
6
      4       do i=1,100
 
7
              ^
 
8
Warning near line 4 col 7: Nonstandard syntax
 
9
      6       enddo
 
10
              ^
 
11
Warning near line 6 col 7: Nonstandard syntax
 
12
      7       print *,sum  !@#$*&
 
13
                           ^
 
14
Warning near line 7 col 20: Nonstandard syntax: inline comment
 
15
     10       do while(other_sum .lt. 2000)
 
16
              ^
 
17
Warning near line 10 col 7: Nonstandard syntax
 
18
     13 ! here we have a nonstandard comment
 
19
        ^
 
20
Warning near line 13 col 1: Nonstandard syntax: inline comment
 
21
     12       end do
 
22
              ^
 
23
Warning near line 12 col 7: Nonstandard syntax
 
24
     15       dowhile ( x .ne. (1,2))
 
25
              ^
 
26
Warning near line 15 col 7: Nonstandard syntax
 
27
     17       end do
 
28
              ^
 
29
Warning near line 17 col 7: Nonstandard syntax
 
30
     18       do 100 while (.true.)
 
31
              ^
 
32
Warning near line 18 col 7: Nonstandard syntax
 
33
     20          if( sum .eq. 0.0 ) exit
 
34
                                    ^
 
35
Warning near line 20 col 29: Nonstandard syntax: EXIT statement
 
36
     22       do 200, while (.false.)
 
37
              ^
 
38
Warning near line 22 col 7: Nonstandard syntax
 
39
     24  200  end do
 
40
              ^
 
41
Warning near line 24 col 7: Nonstandard syntax
 
42
 
 
43
Module ABC: subr
 
44
 
 
45
Variables:
 
46
 
 
47
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
 
48
         I intg*    OTHER_SUM real*          SUM real*            X real*  
 
49
 
 
50
* Variable not declared. Type has been implicitly defined.
 
51
 
 
52
 
 
53
Warning in module ABC: Variables may be used before set:
 
54
    X used at line 15
 
55
    X set at line 16
 
56
 
 
57
 
 
58
Statement labels defined:
 
59
 
 
60
    Label   Line  StmtType    Label   Line  StmtType
 
61
    <100>     21      exec    <200>     24      exec
 
62
 
 
63
     26       include 'average.f'
 
64
              ^
 
65
Warning near line 26 col 7: Nonstandard syntax
 
66
Including file average.f:
 
67
     16             COMPAV = SUM/COUNT
 
68
                           ^
 
69
Warning near line 16 col 20 file average.f: integer quotient expr SUM/COUNT 
 
70
 converted to real
 
71
 
 
72
Module COMPAV: func: real
 
73
 
 
74
Variables:
 
75
 
 
76
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
 
77
    COMPAV real         COUNT intg             I intg*            J intg   
 
78
     SCORE intg  1        SUM intg   
 
79
 
 
80
* Variable not declared. Type has been implicitly defined.
 
81
 
 
82
 
 
83
Warning in module COMPAV in file average.f: Variables may be used before set:
 
84
    SUM used at line 14 file average.f
 
85
     included at line 26 file do_enddo.f
 
86
    SUM set at line 14 file average.f
 
87
     included at line 26 file do_enddo.f
 
88
 
 
89
 
 
90
Statement labels defined:
 
91
 
 
92
    Label   Line  StmtType
 
93
     <30>  15[1]      exec
 
94
 
 
95
________
 
96
 
 
97
  [1] -- in include file: average.f
 
98
 
 
99
 
 
100
Module AVENUM: prog
 
101
 
 
102
External subprograms referenced:
 
103
 
 
104
    COMPAV: real*  
 
105
 
 
106
Variables:
 
107
 
 
108
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
 
109
       AVG real         COUNT intg             I intg        MAXNOS intg*  
 
110
      NUMS real  1
 
111
 
 
112
* Variable not declared. Type has been implicitly defined.
 
113
 
 
114
 
 
115
Warning in module AVENUM in file average.f: Variables set but never used:
 
116
    AVG set at line 43 file average.f
 
117
     included at line 26 file do_enddo.f
 
118
 
 
119
 
 
120
Statement labels defined:
 
121
 
 
122
    Label   Line  StmtType    Label   Line  StmtType
 
123
     <80>  42[1]      exec    <100>  43[1]      exec
 
124
 
 
125
________
 
126
 
 
127
  [1] -- in include file: average.f
 
128
 
 
129
 
 
130
 0 syntax errors detected in file do_enddo.f
 
131
 20 warnings issued in file do_enddo.f
 
132
 
 
133
Warning: Subprogram ABC never invoked
 
134
    Defined in module ABC line 2 file do_enddo.f
 
135
 
 
136
Warning: Subprogram COMPAV argument data type mismatch at position 1:
 
137
    Dummy arg SCORE in module COMPAV line 10 file average.f (included at line 
 
138
 26 in do_enddo.f) is type intg
 
139
    Actual arg NUMS in module AVENUM line 43 file average.f (included at line 
 
140
 26 in do_enddo.f) is type real