path: root/testsuite/compilable/assign_record_to_base.elna

type
  B = record
    x: Int
  end
  R = record(B)
    y: Int
  end

var
  x: ^B := nil
  y: ^R := nil

begin
  x := y;
end.