https://sourceware.org/bugzilla/show_bug.cgi?id=24509
--- Comment #3 from Tom Tromey <tromey at sourceware dot org> ---
To check for negative values, I think you can add another
clause, here's what I did:
package Rng is
type Rec (I : Integer) is record
case I is
when Positive =>
C : Character;
case I is
when 1..15 | 17 | 23 =>
null;
when others =>
N : Natural;
end case;
when -52..-1 =>
Q: Natural;
when others =>
S : String (1 .. 10);
end case;
end record;
R : Rec (1);
end Rng;
The proposed patch does not handle this properly:
[ 9f] variant abbrev: 5
discr_list (block1) range: 76-127
--
You are receiving this mail because:
You are on the CC list for the bug.
