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

« back to all changes in this revision

Viewing changes to test/Okay/pure-function.fcx

  • 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:
 
1
 
 
2
FTNCHEK Version 3.1 May 2001
 
3
 
 
4
File pure-function.f:
 
5
 
 
6
      1       real function notpure(a,b,c)
 
7
      2       real a,b,c
 
8
      3       common /shared/ x,y,z
 
9
      4       b = a + c
 
10
      5       z = x + y
 
11
      6       notpure = a*x + b*y + c*z
 
12
      7       end
 
13
      8 
 
14
 
 
15
Module NOTPURE: func: real
 
16
 
 
17
Common blocks referenced:
 
18
 
 
19
    SHARED         
 
20
 
 
21
 
 
22
"pure-function.f", line 4: Warning in module NOTPURE: Function modifies 
 
23
 argument B
 
24
 
 
25
"pure-function.f", line 5: Warning in module NOTPURE: Function modifies common
 
26
 variable Z
 
27
Variables:
 
28
 
 
29
      Name Type Dims     Name Type Dims     Name Type Dims     Name Type Dims
 
30
         A real             B real             C real       NOTPURE real   
 
31
         X real*            Y real*            Z real*  
 
32
 
 
33
* Variable not declared. Type has been implicitly defined.
 
34
 
 
35
 
 
36
 
 
37
"pure-function.f", line 1: Warning in module NOTPURE: Names longer than 6
 
38
 chars (nonstandard):
 
39
"pure-function.f", line 1:     NOTPURE declared
 
40
 
 
41
 0 syntax errors detected in file pure-function.f
 
42
 4 warnings issued in file pure-function.f
 
43
 
 
44
No main program found
 
45
"pure-function.f", line 3: Warning: Common block SHARED Elements used but
 
46
 never set:
 
47
    X Y