CVS difference for acats/support/summary.a
--- acats/support/summary.a 2016/06/29 04:53:38 1.4
+++ acats/support/summary.a 2016/06/30 05:28:56 1.5
@@ -350,10 +350,12 @@
Check_for_Range_Indicators_then_Write_Result;
elsif The_Comment'Length >= 21 and then
- The_Comment(The_Comment'First..The_Comment'First+20) =
- "OPTIONAL ERR MESSAGE:" then
+ The_Comment(The_Comment'First..The_Comment'First+19) =
+ "OPTIONAL ERR MESSAGE" and then
+ (The_Comment(The_Comment'First+20) = ':' or else
+ The_Comment(The_Comment'First+20) = '.') then
-- Note: Some ancient tests (esp. chapter 8, for example B83001A.ADA)
- -- use this form.
+ -- use this form (followed by a period or colon).
-- If there is no Range indicator, then we just use the first
-- significant position on this line.
Result := (Kind => Test_Summary.Optional_Error,
Questions? Ask the ACAA Technical Agent