diff options
Diffstat (limited to 'gcc/ada/comperr.adb')
| -rw-r--r-- | gcc/ada/comperr.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index f7061d51c29..bbe34a60128 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -467,9 +467,10 @@ package body Comperr is Main := Unit (Cunit (Main_Unit)); case Nkind (Main) is - when N_Package_Declaration | - N_Subprogram_Body | - N_Subprogram_Declaration => + when N_Package_Declaration + | N_Subprogram_Body + | N_Subprogram_Declaration + => Unit_Name := Defining_Unit_Name (Specification (Main)); when N_Package_Body => |