From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Thu, 29 May 2008 08:06:12 +0000 (+0200)
Subject: * sem_res.adb: Minor reformatting
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=cdbf04c041ab5d60441c4af55a79d1a3d3cee43b;p=gcc.git

* sem_res.adb: Minor reformatting

From-SVN: r136141
---

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index b6c72b44cde..80010871910 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -9434,7 +9434,7 @@ package body Sem_Res is
             end if;
          end;
 
-      --  access to subprogram types. If the operand is an access parameter,
+      --  Access to subprogram types. If the operand is an access parameter,
       --  the type has a deeper accessibility that any master, and cannot
       --  be assigned.
 
@@ -9443,10 +9443,9 @@ package body Sem_Res is
              Ekind (Target_Type) = E_Anonymous_Access_Subprogram_Type)
         and then No (Corresponding_Remote_Type (Opnd_Type))
       then
-         if
-           Ekind (Base_Type (Opnd_Type)) = E_Anonymous_Access_Subprogram_Type
-             and then Is_Entity_Name (Operand)
-             and then Ekind (Entity (Operand)) = E_In_Parameter
+         if Ekind (Base_Type (Opnd_Type)) = E_Anonymous_Access_Subprogram_Type
+           and then Is_Entity_Name (Operand)
+           and then Ekind (Entity (Operand)) = E_In_Parameter
          then
             Error_Msg_N
               ("illegal attempt to store anonymous access to subprogram",