Message ID | 20110804091358.GA3468@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_ch13.adb =================================================================== --- sem_ch13.adb (revision 177340) +++ sem_ch13.adb (working copy) @@ -854,7 +854,7 @@ end if; end if; - goto Continue; + -- Allowed case of X and X'Class both specified end if; Next (Anod);