From: Gaius Mulley <gaiusmod2@gmail.com>
Date: Fri, 29 Sep 2023 23:48:09 +0000 (+0100)
Subject: modula2: testsuite correction to m2date.mod
X-Git-Tag: basepoints/gcc-15~5795
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c00fcbdab84aa20229d5ea0e0604a8367686447c;p=thirdparty%2Fgcc.git

modula2: testsuite correction to m2date.mod

This patch corrects the m2date day of the week message.
The days of the week array start with Thursday reflecting the
1st Jan 1970.

gcc/testsuite/ChangeLog:

	* gm2/iso/run/pass/m2date.mod (DayName): Reordered.

Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
---

diff --git a/gcc/testsuite/gm2/iso/run/pass/m2date.mod b/gcc/testsuite/gm2/iso/run/pass/m2date.mod
index 1d8b595fc81a..f7e0c3c43e59 100644
--- a/gcc/testsuite/gm2/iso/run/pass/m2date.mod
+++ b/gcc/testsuite/gm2/iso/run/pass/m2date.mod
@@ -13,7 +13,8 @@ TYPE
 
 CONST
    Debugging = FALSE ;
-   DayName = DayArray { "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun" } ;
+   (* 1st January 1970 was a Thursday.  *)
+   DayName   = DayArray { "Thu", "Fri", "Sat", "Sun", "Mon", "Tue", "Wed" } ;
    MonthName = MonthArray { "Dec", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov" } ;