30 Sep
1998
30 Sep
'98
10:26 a.m.
Frank Heckenbach wrote:
Does the following also fail? This would be in the format for out test suite, i.e. it writes 'OK' when it works:
unit Sietse1u;
interface
const TStringSize = 2048; type TString = String (TStringSize);
implementation
end.
program Sietse1;
uses Sietse1u;
function F : TString; begin F := 'OK' end;
begin writeln (F) end.
If it doesn't work on hpux, I'll put it into the test suite.
Indeed it doesn't work on hpux. The value of TStringSize is also not relevant here.
Sietse