YACB: Protected type and array assignment causes backend failture

YACB: Protected type and array assignment causes backend failture

[Lutz Donnerhacke]

$ cat > t.adb <<END
procedure T is
   protected type PT(size : Positive) is
      entry Copy(Boolean)(data : out String; last : out Natural);
   private
      mydata : String(1 .. size);
   end PT;
   
   protected body PT is
      entry Copy(for b in Boolean)(data : out String; last : out Natural)
      when True is
         mylast : Positive := Natural'Min(data'Length, mydata'Length) - 1;
      begin
         last := data'First + mylast;
         data(data'First .. last) := mydata(1 .. mylast);
      end Copy;
   end PT;
begin
   null;
end T;
END
$ gcc -c t.adb
t.adb: In function t.ptPT.E15b':
t.adb:2: error: prior parameter's size depends on size'