Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / tbs / tb0143.pp
Size: Mime:
{ Old file: tbs0171.pp }
{ missing typecasting in constant expression solved for pointers                                   OK 0.99.11 (PM) }

type
  pstring=^string;
const
  drivestr:string='c:';
  pdrivestr:pstring=pstring(@drivestr);
begin
  if pdrivestr^<>'c:' then
    begin
       Writeln('Error in typecast of const');
       Halt(1);
    end;
end.