mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:07:54 +02:00
22 lines
510 B
ObjectPascal
22 lines
510 B
ObjectPascal
Program Test;
|
|
|
|
{ No errors -- problems is due to the fact that the rules for type
|
|
compatibility (p.47 language guide) -- are not respected, in other words
|
|
in case statements there is no type checking whatsoever in fpc!!
|
|
I think that these are separate cases:
|
|
1st case) s32bit,u32bit,u8bit,s8bit,s16bit,u16bit
|
|
2nd case) uchar
|
|
3rd case) bool8bit
|
|
These are not /should not be compatible with each other in a case
|
|
statement imho - CEC
|
|
}
|
|
|
|
var
|
|
myvar:char;
|
|
Begin
|
|
case myvar of
|
|
1: ;
|
|
#2: ;
|
|
end;
|
|
end.
|