[Info-vax] cast REAL*16 to constant 18446744073709551616

[Arne Vajhøj]

On 3/15/2021 2:18 PM, Jan-Erik Söderholm wrote:
> Den 2021-03-15 kl. 19:08, skrev HCorte:
>> A segunda-feira, 15 de março de 2021 à(s) 17:48:05 UTC, Arne Vajhøj 
>> escreveu:
>>> On 3/15/2021 1:09 PM, HCorte wrote:
>>>> Hi trying to cast REAL*16 to the constant 18446744073709551616 that 
>>>> is 9 bytes length how to do it?
>>>>
>>>> tried 
>>>> (http://www.cs.uwm.edu/classes/cs151/Bacon/Lecture/HTML/ch06s09.html):
>>>> REAL*16 OVER8BYTES
>>>> PARAMETER (OVER8BYTES = 18446744073709551616e)
>>>>
>>>> %F90-E-ERROR, The decimal constant was too large when converting to 
>>>> an integer, and overflow occurred. [184
>>>> 46744073709551616]
>>> Does 18446744073709551616q0 work?
>>
>> tried with D0:
>>
>> REAL*16 OVER8BYTES
>> PARAMETER (OVER8BYTES = 18446744073709551616D0)
>>
>> and worked
>>
> 
> Or q0 :
> 
> ! program hello_test
>      program hello_test
>        REAL*16     OVER8BYTES
>        PARAMETER  (OVER8BYTES = 18446744073709551616q0)
>        print *, 'Hello'
>        print *, OVER8BYTES
>      end program hello_test
> 
> 
> $ fort test
> $ link test
> $ r test
> Hello
>    18446744073709551616.0000000000000

Q should be the correct for REAL*16.

Arne