* sem_ch3.adb (Build_Derived_Record_Type): Fix long line.

From-SVN: r246670

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 127a181431f3bc7286e98889ddf7fa6561f75f7c..6b0ae2d4d0665c4390bb38056584f4287cb7a675 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2017-04-04  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * sem_ch3.adb (Build_Derived_Record_Type): Fix long line.
+
 2017-04-03  Jonathan Wakely  <jwakely@redhat.com>
 
        * doc/gnat_ugn/gnat_and_program_execution.rst: Fix typo.

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index de3a49e29103a3c7f23bae32a335e7376a23efde..7c3f7e601c0ac7a1a11d80e4adafc3034bedfe72 100644 (file)
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -8706,7 +8706,7 @@ package body Sem_Ch3 is
 
                --  However, if the record contains an array constrained by
                --  the discriminant but with some different bound, the compiler
-               --  attempts to create a smaller range for the discriminant type.
+               --  tries to create a smaller range for the discriminant type.
                --  (See exp_ch3.Adjust_Discriminants). In this case, where
                --  the discriminant type is a scalar type, the check must use
                --  the original discriminant type in the parent declaration.