diff --git a/gcc/testsuite/gm2/cpp/pass/testlong4.mod b/gcc/testsuite/gm2/cpp/pass/testlong4.mod
new file mode 100644
index 00000000000..97dd4b2a699
--- /dev/null
+++ b/gcc/testsuite/gm2/cpp/pass/testlong4.mod
@@ -0,0 +1,33 @@
+(* Copyright (C) 2024 Free Software Foundation, Inc. *)
+(* This file is part of GNU Modula-2.
+
+GNU Modula-2 is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 2, or (at your option) any later
+version.
+
+GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License along
+with gm2; see the file COPYING.  If not, write to the Free Software
+Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *)
+
+MODULE testlong4 ;
+
+FROM libc IMPORT exit ;
+
+VAR
+   l: LONGCARD ;
+BEGIN
+   (* test for assignment of MAX(LONGINT)+1 *)
+#if __SIZEOF_LONG__ == 4
+    l := 2147483648
+#elif __SIZEOF_LONG__ == 8
+    l := 9223372036854775808
+#else
+#  error "add the clause for the size of long here"
+#endif
+END testlong4.
diff --git a/gcc/testsuite/gm2/pim/pass/TestLong4.mod b/gcc/testsuite/gm2/pim/pass/TestLong4.mod
index 514deb94841..f2de9418587 100644
--- a/gcc/testsuite/gm2/pim/pass/TestLong4.mod
+++ b/gcc/testsuite/gm2/pim/pass/TestLong4.mod
@@ -22,6 +22,5 @@ FROM libc IMPORT exit ;
 VAR
    l: LONGCARD ;
 BEGIN
-   (* test for assignment of MAX(LONGINT)+1 *)
-   l := 9223372036854775808
+   l := MAX (LONGCARD)
 END TestLong4.