+ bug0238

bugs/bug0238.pp

@@ -0,0 +1,34 @@
+program test1;
+
+           {compiles under TPC - PPC386 gives internal error}
+
+Type str1=string[160];
+
+var
+   fileof  :file of str1;
+   lol   :array[1..8] of str1;
+   nu,n:integer;
+   i,tt    :str1;
+   ul   :text;
+   a: str1;
+
+
+procedure test;
+
+
+begin
+   for nu:=1 to 8 do read(fileof,lol[nu]);
+   writeln('File contents');
+   for nu:=4 to 8 do writeln(lol[nu]);
+end;
+
+
+begin
+  assign(fileof,'test.dat');
+  rewrite(fileof);
+  for nu:=1 to 8 do write(fileof,a);
+  close(fileof);
+  reset(fileof);
+  test;
+  close(fileof);
+end.

bugs/readme.txt

@@ -321,3 +321,4 @@ bug0232.pp   const. procedure variables need a special syntax
              if they use calling specification modifiers
 bug0234.pp   New with void pointer
 bug0237.pp   Can't have sub procedures with names defined in interface
+bug0238.pp   Internal error 432645 (from Frank MCCormick, mailinglist 24/2)