{$borland-pascal,W cast-align}

program TestCast;
type
 BytePtr = ^Byte;
 IntPtr = ^Integer;
var
 theBytePtr : BytePtr;
 theIntPtr: IntPtr;
begin
 theBytePtr := nil;
 theIntPtr:= nil;
 theIntPtr:= IntPtr( theBytePtr);       {testcast.pas:11: warning: cast
increases required alignment of target type}  { WARN }
 BytePtr( theIntPtr) := theBytePtr;
 theBytePtr:= BytePtr( theIntPtr);
 IntPtr( theBytePtr):= theIntPtr;      {testcast.pas:14: warning: cast
increases required alignment of target type}
end.
