usr/share/fpcsrc/3.0.0/tests/test/twrstr3.pp · bee / fpc-src v3.0.0 - deb package | Gemfury

Gemfury

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

bee / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.0.0 / tests / test / twrstr3.pp

{ from GPC test suite }

Program fjf7;

Var
  S: String [ 80 ];
  astr: ansistring;

begin
  WriteStr ( astr, '' : 5, 'OKabcdf' : 7 );
  if (length ( astr ) <> 5 + 7) or
     (copy(astr,6,2) <> 'OK') then
    halt(1);

  WriteStr ( S, '' : 5, 'OKabcdf' : 7 );
  if length ( S ) = 5 + 7 then
    halt(ord(copy(S,6,2) <> 'OK'))
  else
    halt(1);
end.