diff options
Diffstat (limited to 'gcc/ada/par-ch6.adb')
| -rw-r--r-- | gcc/ada/par-ch6.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index 263efe1e5a3..d91b2d9f15d 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -221,13 +221,12 @@ package body Ch6 is -- and bodies can occur. if Pf_Flags /= Pf_Decl_Gins_Pbod_Rnam_Stub - and then Pf_Flags /= Pf_Decl_Pbod + and then + Pf_Flags /= Pf_Decl_Pbod then Error_Msg_SC ("overriding indicator not allowed here!"); - elsif Token /= Tok_Function - and then Token /= Tok_Procedure - then + elsif Token /= Tok_Function and then Token /= Tok_Procedure then Error_Msg_SC ("FUNCTION or PROCEDURE expected!"); end if; end if; |