From: Ronan Desplanques <desplanques@adacore.com>
Date: Wed, 2 Apr 2025 15:30:43 +0000 (+0200)
Subject: ada: Add Ada RM clause reference in comment
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=035fa0ded56a1c7b56f36dfd134f347f6a4a8af5;p=thirdparty%2Fgcc.git

ada: Add Ada RM clause reference in comment

gcc/ada/ChangeLog:

	* libgnat/s-valuer.adb (Scan_Raw_Real): Add RM reference.
---

diff --git a/gcc/ada/libgnat/s-valuer.adb b/gcc/ada/libgnat/s-valuer.adb
index 4b444c2f8a7..2410b6bd4e1 100644
--- a/gcc/ada/libgnat/s-valuer.adb
+++ b/gcc/ada/libgnat/s-valuer.adb
@@ -604,7 +604,8 @@ package body System.Value_R is
          Bad_Value (Str);
       end if;
 
-      --  Check if the first number encountered is a base
+      --  Check if the first number encountered is a base. ':' is allowed in
+      --  place of '#' in virtue of RM J.2 (3).
 
       pragma Assert (Index >= Str'First);