2010-10-08 Robert Dewar <dewar@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / sem_ch6.adb

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index e74aaf7..90e81f9 100644 (file)
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -620,8 +620,7 @@ package body Sem_Ch6 is
                   Subtype_Ind);
             end if;
 
                   Subtype_Ind);
             end if;
 

-            --  AI05-103 : for elementary types, subtypes must statically
-            --  match.
+            --  AI05-103: for elementary types, subtypes must statically match

 
             if Is_Constrained (R_Type)
               or else Is_Access_Type (R_Type)
 
             if Is_Constrained (R_Type)
               or else Is_Access_Type (R_Type)