Test suite results for test file webtbs/tw1779.pp

Test run data :

Test file "webtbs/tw1779.pp" information:

t_id 850
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015553.

Source:

{ %target=win32 }
{ Source provided for Free Pascal Bug Report 1779 }
{ Submitted by "Pierre" on  2002-01-25 }
{ e-mail: pierre@freepascal.org }

uses
  windows;

function GetLargestConsoleWindowSizeAlternate(h : longint) : dword;
  external 'kernel32' name 'GetLargestConsoleWindowSize';

var
  c1,c : coord;
  y : dword;
begin
  longint(c):=GetStdHandle(STD_OUTPUT_HANDLE);
  c1:=GetLargestConsoleWindowSize(GetStdHandle(STD_OUTPUT_HANDLE));
  Writeln('Max window size is ',c1.x,'x',c1.y);
  y:=GetLargestConsoleWindowSizeAlternate(GetStdHandle(STD_OUTPUT_HANDLE));
  c.x := y and $ffff;
  c.y:=  y shr 16;
  Writeln('Max window size is ',c.x,'x',c.y);
  if (c.x<>c1.X) or (c.Y<>c1.y) then
    begin
      Writeln('RTL bug');
      Halt(1);
    end;
end.

Link to SVN view of webtbs/tw1779.pp source.