diff options
Diffstat (limited to 'gcc/ada/par-ch7.adb')
| -rw-r--r-- | gcc/ada/par-ch7.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/par-ch7.adb b/gcc/ada/par-ch7.adb index d4d168d..d4238d2 100644 --- a/gcc/ada/par-ch7.adb +++ b/gcc/ada/par-ch7.adb @@ -109,7 +109,7 @@ package body Ch7 is -- Case of package body. Note that we demand a package body if that -- is the only possibility (even if the BODY keyword is not present) - if Token = Tok_Body or else Pf_Flags = Pf_Pbod then + if Token = Tok_Body or else Pf_Flags = Pf_Pbod_Pexp then if not Pf_Flags.Pbod then Error_Msg_SC ("package body cannot appear here!"); end if; |