diff options
Diffstat (limited to 'gcc/ada/exp_ch13.adb')
| -rw-r--r-- | gcc/ada/exp_ch13.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch13.adb b/gcc/ada/exp_ch13.adb index ebfd212f491..7d903eb6fed 100644 --- a/gcc/ada/exp_ch13.adb +++ b/gcc/ada/exp_ch13.adb @@ -103,6 +103,7 @@ package body Exp_Ch13 is declare Decl : constant Node_Id := Declaration_Node (Ent); Typ : constant Entity_Id := Etype (Ent); + begin if Nkind (Decl) = N_Object_Declaration and then Present (Expression (Decl)) |
