test/Okay/quad.fcl

12 Warning near line 5 col 12: Nonstandard syntax
15 Warning near line 6 col 12: Nonstandard syntax
18 Warning near line 7 col 15: Nonstandard syntax
21 Warning near line 8 col 11: Nonstandard syntax: quad precision constant
24 Warning near line 9 col 11: Nonstandard syntax: quad precision constant
27 Warning near line 10 col 11: Nonstandard syntax: quad precision constant
30 Warning near line 11 col 11: Nonstandard syntax: quad precision constant
33 Warning near line 12 col 11: Nonstandard syntax: quad precision constant
35 Warning near line 12 col 9: real*16 const 1.234Q+05 truncated to dble D
38 Warning near line 13 col 11: Nonstandard syntax: quad precision constant
40 Warning near line 13 col 9: real*16 const 1.234Q+05 truncated to real R
43 Warning near line 14 col 9: real*16 Q truncated to dble D
46 Warning near line 15 col 9: dble D promoted to real*16 Q: may not give desired
50 Warning near line 16 col 9: real*16 Q truncated to real R
53 Warning near line 17 col 9: real R promoted to real*16 Q: may not give desired
60 Warning near line 21 col 9: real*16 expr QSQRT(Q) truncated to real R
63 Error near line 22 col 17: illegal argument data type for intrinsic function
67 Error near line 23 col 17: illegal argument data type for intrinsic function
71 Warning near line 24 col 10: real*16 expr QSQRT(Q) truncated to real*8 R8
74 Nonportable usage near line 25 col 19: argument precision may not be correct
77 Nonportable usage near line 25 col 17: intrinsic argument list mixes default
81 Warning near line 26 col 17: Nonstandard syntax: quad precision constant
83 Warning near line 26 col 27: Nonstandard syntax: quad precision constant