From 29ba9f52eee2ab585349ba71850bf9e0e5c86d3c Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 30 Jul 2012 15:15:00 +0000 Subject: par_sco.adb, [...]: Minor reformatting. 2012-07-30 Robert Dewar * par_sco.adb, a-cihama.adb, a-coinve.adb, exp_ch7.adb, a-ciorse.adb, exp_ch9.adb, sem_dim.adb, par-ch13.adb, sem_ch9.adb, a-cidlli.adb, a-cimutr.adb, freeze.adb, a-ciormu.adb, sem_res.adb, sem_attr.adb, a-cihase.adb, exp_ch4.adb, sem_ch4.adb, a-ciorma.adb, s-tasinf-linux.ads, sem_ch13.adb, a-coinho.adb: Minor reformatting. Add comments. From-SVN: r189977 --- gcc/ada/sem_dim.adb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'gcc/ada/sem_dim.adb') diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb index 3d0e1dd..0f51837 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 -- cgit v1.1