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
|
FTNCHEK Version 3.3 November 2004
File quad.f:
1 C Test of parsing and checking quad precision variables & constants.
2 C No intrinsic functions at this time.
3 real r
4 double precision d
5 real*8 r8
^
"quad.f", line 5 col 12: Warning: Nonstandard syntax
6 real*16 q
^
"quad.f", line 6 col 12: Warning: Nonstandard syntax
7 complex*32 cq
^
"quad.f", line 7 col 15: Warning: Nonstandard syntax
8 q = 1.234Q5
^
"quad.f", line 8 col 11: Warning: Nonstandard syntax: quad precision constant
9 q = 1.234Q+05
^
"quad.f", line 9 col 11: Warning: Nonstandard syntax: quad precision constant
10 q = 1.234Q+345
^
"quad.f", line 10 col 11: Warning: Nonstandard syntax: quad precision constant
11 q = 1.234Q-345
^
"quad.f", line 11 col 11: Warning: Nonstandard syntax: quad precision constant
12 d = 1.234Q+05
^
"quad.f", line 12 col 11: Warning: Nonstandard syntax: quad precision constant
^
"quad.f", line 12 col 9: Warning: real*16 const 1.234Q+05 truncated to dble D
13 r = 1.234Q+05
^
"quad.f", line 13 col 11: Warning: Nonstandard syntax: quad precision constant
^
"quad.f", line 13 col 9: Warning: real*16 const 1.234Q+05 truncated to real R
14 d = q
^
"quad.f", line 14 col 9: Warning: real*16 Q truncated to dble D
15 q = d
^
"quad.f", line 15 col 9: Warning: dble D promoted to real*16 Q: may not give
desired precision
16 r = q
^
"quad.f", line 16 col 9: Warning: real*16 Q truncated to real R
17 q = r
^
"quad.f", line 17 col 9: Warning: real R promoted to real*16 Q: may not give
desired precision
18 cq = q
19 q = qsqrt(q)
20 cq = cqsqrt(cq)
21 r = qsqrt(q)
^
"quad.f", line 21 col 9: Warning: real*16 expr QSQRT(Q) truncated to real R
22 q = qsqrt(r)
^
"quad.f", line 22 col 17: Error: illegal argument data type for intrinsic
function QSQRT: real R
23 q = qsqrt(d)
^
"quad.f", line 23 col 17: Error: illegal argument data type for intrinsic
function QSQRT: dble D
24 r8 = qsqrt(q)
^
"quad.f", line 24 col 10: Warning: real*16 expr QSQRT(Q) truncated to real*8 R8
25 q = qprod(d,r8)
^
"quad.f", line 25 col 19: Nonportable usage: argument precision may not be
correct for intrinsic function QPROD: real*8 R8
^
"quad.f", line 25 col 17: Nonportable usage: intrinsic argument list mixes
default and explicit precision operands: dble D , real*8 R8
26 q = qmax1(1.234Q5,q,1.234Q-5)
^
"quad.f", line 26 col 17: Warning: Nonstandard syntax: quad precision constant
^
"quad.f", line 26 col 27: Warning: Nonstandard syntax: quad precision constant
27 end
Module %MAIN: prog
External subprograms referenced:
CQSQRT: intrns QMAX1: intrns QPROD: intrns QSQRT: intrns
Variables:
Name Type Dims Name Type Dims Name Type Dims Name Type Dims
CQ cplx32 D dble Q real16 R real
R8 real8
"quad.f", line 20: Warning in module %MAIN: Non Fortran 77 intrinsic functions
referenced:
"quad.f", line 20: CQSQRT referenced
"quad.f", line 26: QMAX1 referenced
"quad.f", line 25: QPROD referenced
"quad.f", line 19: QSQRT referenced
2 syntax errors detected in file quad.f
22 warnings issued in file quad.f
|
