Message ID | 20140120154002.GA15692@adacore.com |
---|---|
State | New |
Headers | show |
Index: par-ch8.adb =================================================================== --- par-ch8.adb (revision 206804) +++ par-ch8.adb (working copy) @@ -113,7 +113,12 @@ Error_Msg_Ada_2012_Feature ("|`USE ALL TYPE`", Token_Ptr); All_Present := True; Scan; -- past ALL - else + + if Token /= Tok_Type then + Error_Msg_SC ("TYPE expected"); + end if; + + else pragma Assert (Token = Tok_Type); All_Present := False; end if;