]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
modula2: testsuite correction to m2date.mod
authorGaius Mulley <gaiusmod2@gmail.com>
Fri, 29 Sep 2023 23:48:09 +0000 (00:48 +0100)
committerGaius Mulley <gaiusmod2@gmail.com>
Fri, 29 Sep 2023 23:48:09 +0000 (00:48 +0100)
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>
gcc/testsuite/gm2/iso/run/pass/m2date.mod

index 1d8b595fc81ac572f006e1ebaa0cbd494dc3d5f6..f7e0c3c43e59b81d8d8309e25782e03ef7f4d983 100644 (file)
@@ -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" } ;