Having problems assigning Integer types to Single

[ad1mt]

I'm having problems assigning Integer types to Single.
In the 32bit compiler it won't allow single:= int32, but will allow single:= int64.
In the 64bit compiler it won't allow single:= int64, but will allow single:= int32.
I'm puzzled. Ignoring the inconsistency...
Is there a "correct" way to assign an integer type to a floating point type?
I know there is a restriction was the other way round,  integer:= real, requires trunc(real) or round(real).
But my understanding is that real:=integer should be allowed.

[jamie]

I don't see it in 3.0.4 FPC. Didn't try anything different.

[Eugene Loza]

Works for me without any issues:

Code: Pascal  [Select][+][-]

1. program Project1;
2.  
3. var
4.   S: Single;
5.   I8: Int8 = 114;
6.   I16: Int16 = 31634;
7.   I32: Int32 = 93258345;
8.   I64: Int64 = 436438693246;
9. begin
10.   S := I8;
11.   WriteLn(S);
12.   S := I16;
13.   WriteLn(S);
14.   S := I32;
15.   WriteLn(S);
16.   S := I64;
17.   WriteLn(S);
18.   ReadLn;
19. end.

[Nitorami]

I cannot reproduce this with FPC 3.2.2 (32bit, windows), and this would indeed be VERY odd.
Can you reproduce this when you remove all own units from the uses clause ? Just in case you have defined an implicit operator which converts your int to something else before you try to convert it to single.

[ad1mt]

Thanks for your replies.
Yes, I have got lots of implicit type conversion and operator overloading going on, although I don't think it should be kicking-in.
I'll try again with a very simple piece of code.
But you've answered my question that, in theory, it should work ok.

[ad1mt]

Works for me without any issues:

Code: Pascal  [Select][+][-]

1. program Project1;
2.  
3. var
4.   S: Single;
5.   I8: Int8 = 114;
6.   I16: Int16 = 31634;
7.   I32: Int32 = 93258345;
8.   I64: Int64 = 436438693246;
9. begin
10.   S := I8;
11.   WriteLn(S);
12.   S := I16;
13.   WriteLn(S);
14.   S := I32;
15.   WriteLn(S);
16.   S := I64;
17.   WriteLn(S);
18.   ReadLn;
19. end.

I should have tried this for myself before posting my question   

[dseligo]

I should have tried this for myself before posting my question   

And if it doesn't work post your test code to forum for others to try.