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
|
FTNCHEK Version 3.3 November 2004
File relops.f:
1 C Test program for acceptance of new style relational operators. These
2 C are F90 standard, not F77.
3 real x, y
4
5 write(*,*) 'Enter two numbers'
6 read(*,*) x,y
7
8 if( x > y ) then
^
Warning near line 8 col 13: Nonstandard syntax for relational operator
9 write(*,*) x,' is greater than',y
10 endif
11 if( x == y ) then
^
Warning near line 11 col 13: Nonstandard syntax for relational operator
12 write(*,*) x, ' is equal to ',y
13 endif
14 if( x /= y ) then
^
Warning near line 14 col 13: Nonstandard syntax for relational operator
15 write(*,*) x, ' is not equal to',y
16 endif
17 if( x >= y ) then
^
Warning near line 17 col 13: Nonstandard syntax for relational operator
18 write(*,*) x,' is greater or equal to than',y
19 endif
20 if( x < y ) then
^
Warning near line 20 col 13: Nonstandard syntax for relational operator
21 write(*,*) x, ' is less than ',y
22 endif
23 if( x <= y ) then
^
Warning near line 23 col 13: Nonstandard syntax for relational operator
24 write(*,*) x, ' is less than or equal to ',y
25 endif
26 end
27
Module %MAIN: prog
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
X real Y real
I/O Operations:
Unit ID Unit No. Access Form Operation Line
* SEQ FMTD READ 6
* SEQ FMTD WRITE 5 9 12 15 18
21 24
0 syntax errors detected in file relops.f
6 warnings issued in file relops.f
|
