Message ID | 20151026113731.GA55291@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_elab.adb =================================================================== --- sem_elab.adb (revision 229313) +++ sem_elab.adb (working copy) @@ -548,6 +548,12 @@ if Msg_D /= "" and then Elab_Warnings then Error_Msg_NE (Msg_D, N, Ent); end if; + + -- In the access case emit first warning message as well, + -- otherwise list of calls will appear as errors. + + elsif Elab_Warnings then + Error_Msg_NE (Msg_S, N, Ent); end if; -- Static elaboration checks, info message