diff options
Diffstat (limited to 'gcc/ada/par-ch10.adb')
| -rw-r--r-- | gcc/ada/par-ch10.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb index 23cb1cd..c97710e 100644 --- a/gcc/ada/par-ch10.adb +++ b/gcc/ada/par-ch10.adb @@ -1028,7 +1028,11 @@ package body Ch10 is Ignore (Tok_Semicolon); - if Token = Tok_Function or else Token = Tok_Procedure then + if Token = Tok_Function + or else Token = Tok_Not + or else Token = Tok_Overriding + or else Token = Tok_Procedure + then Body_Node := P_Subprogram (Pf_Pbod); elsif Token = Tok_Package then |