diff options
Diffstat (limited to 'gcc/ada/par-ch6.adb')
| -rw-r--r-- | gcc/ada/par-ch6.adb | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index 17e3f85..3632110 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -224,8 +224,10 @@ package body Ch6 is -- case is for subunits. if Pf_Flags /= Pf_Decl_Gins_Pbod_Rnam_Stub - and then Pf_Flags /= Pf_Decl_Pbod - and then Pf_Flags /= Pf_Pbod + and then + Pf_Flags /= Pf_Decl_Pbod + and then + Pf_Flags /= Pf_Pbod then Error_Msg_SC ("overriding indicator not allowed here!"); @@ -374,11 +376,12 @@ package body Ch6 is end if; else - -- Skip extra parenthesis at end of formal part, and if - -- function scan result subtype. + -- Skip extra parenthesis at end of formal part Ignore (Tok_Right_Paren); + -- For function, scan result subtype + if Func then TF_Return; |