Question on variant/discriminated records

[reinert <reinkor@gmail.com>]

Hello,

Assume the following program and change "y1" to "y". 

procedure test3 is
 type options1_Type is (a,b,c);
 type rec1_Type(option1 : options1_Type) is
   record
      x : Float;
      case option1 is
        when a => null;
        when b => y : float;
        when c => y1,z : float;
      end case;
   end record;
begin
   null;
end test3;

My compiler does not like this change.  I find it not natural to invent
a new name "y1" instead of "y". What should I do?

reinert