S. Achterop IWI-120 3932 wrote:

Earlier I mailed a problem in compiling p/rts/filename.pas on HPUX 10.20 with egcs1.1b. After a replay from Frank Heckenbach (thanks!) I reduced the file to the following, and found a workaround.

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.

Removing the comment brackets makes the internal error go away. The workaround of course is defining TString locally in the file filename.pas

OK, I did this in the RTS for now.

Mayby this information helps to find the bug more easily.

I hope so. Thanks for the information.

Frank