diff options
Diffstat (limited to 'gcc/ada/sem_dim.adb')
| -rw-r--r-- | gcc/ada/sem_dim.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb index 3d0e1dd348d..0f518375a1e 100644 --- a/gcc/ada/sem_dim.adb +++ b/gcc/ada/sem_dim.adb @@ -1712,9 +1712,7 @@ package body Sem_Dim is -- entity when the object is a constant whose type is a -- dimensioned type. - if Constant_Present (N) - and then not Exists (Dim_Of_Etyp) - then + if Constant_Present (N) and then not Exists (Dim_Of_Etyp) then Set_Dimensions (Id, Dim_Of_Expr); -- Otherwise, issue an error message |