From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <burnus@sourceware.org>
Received: by sourceware.org (Postfix, from userid 1534)
 id AD7F03858C3A; Wed, 20 Oct 2021 06:48:34 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org AD7F03858C3A
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset="utf-8"
From: Tobias Burnus <burnus@gcc.gnu.org>
To: gcc-cvs@gcc.gnu.org
Subject: [gcc r12-4528] gfortran.dg/bind-c-contiguous-5.c: Big-endian fix
X-Act-Checkin: gcc
X-Git-Author: Tobias Burnus <tobias@codesourcery.com>
X-Git-Refname: refs/heads/master
X-Git-Oldrev: 424945258d1778617b5d3d5273f6e1c10e718f80
X-Git-Newrev: d4044db034b40c275b5f287d5854a102d22e07c0
Message-Id: <20211020064834.AD7F03858C3A@sourceware.org>
Date: Wed, 20 Oct 2021 06:48:34 +0000 (GMT)
X-BeenThere: gcc-cvs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-cvs mailing list <gcc-cvs.gcc.gnu.org>
List-Unsubscribe: <https://gcc.gnu.org/mailman/options/gcc-cvs>,
 <mailto:gcc-cvs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-cvs/>
List-Help: <mailto:gcc-cvs-request@gcc.gnu.org?subject=help>
List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/gcc-cvs>,
 <mailto:gcc-cvs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Wed, 20 Oct 2021 06:48:34 -0000

https://gcc.gnu.org/g:d4044db034b40c275b5f287d5854a102d22e07c0

commit r12-4528-gd4044db034b40c275b5f287d5854a102d22e07c0
Author: Tobias Burnus <tobias@codesourcery.com>
Date:   Wed Oct 20 08:32:16 2021 +0200

    gfortran.dg/bind-c-contiguous-5.c: Big-endian fix
    
    gcc/testsuite/
    
            PR fortran/102815
            * gfortran.dg/bind-c-contiguous-5.c (do_call, reset_var): Handle
            big andian.

Diff:
---
 gcc/testsuite/gfortran.dg/bind-c-contiguous-5.c | 101 ++++++++++++++++++++++++
 1 file changed, 101 insertions(+)

diff --git a/gcc/testsuite/gfortran.dg/bind-c-contiguous-5.c b/gcc/testsuite/gfortran.dg/bind-c-contiguous-5.c
index 48c03d4e02e..0b7bae8a381 100644
--- a/gcc/testsuite/gfortran.dg/bind-c-contiguous-5.c
+++ b/gcc/testsuite/gfortran.dg/bind-c-contiguous-5.c
@@ -88,6 +88,7 @@ do_call (CFI_cdesc_t *x, CFI_cdesc_t *y, CFI_cdesc_t *z,
   basic_check (z, is_cont || num == 2);
   if (!is_cont && num == 1)
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       check_str (x, "a\0\0\0b\0\0\0c\0\0\0", 3*4, zero);
       check_str (x, "g\0\0\0h\0\0\0i\0\0\0", 3*4, one);
       check_str (x, "n\0\0\0o\0\0\0p\0\0\0", 3*4, two);
@@ -97,24 +98,55 @@ do_call (CFI_cdesc_t *x, CFI_cdesc_t *y, CFI_cdesc_t *z,
       check_str (z, "a\0\0\0b\0\0\0c\0\0\0", 3*4, zero);
       check_str (z, "g\0\0\0h\0\0\0i\0\0\0", 3*4, one);
       check_str (z, "n\0\0\0o\0\0\0p\0\0\0", 3*4, two);
+#elif __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__
+      check_str (x, "\0\0\0a\0\0\0b\0\0\0c", 3*4, zero);
+      check_str (x, "\0\0\0g\0\0\0h\0\0\0i", 3*4, one);
+      check_str (x, "\0\0\0n\0\0\0o\0\0\0p", 3*4, two);
+      check_str (y, "\0\0\0a\0\0\0b\0\0\0c", 3*4, zero);
+      check_str (y, "\0\0\0g\0\0\0h\0\0\0i", 3*4, one);
+      check_str (y, "\0\0\0n\0\0\0o\0\0\0p", 3*4, two);
+      check_str (z, "\0\0\0a\0\0\0b\0\0\0c", 3*4, zero);
+      check_str (z, "\0\0\0g\0\0\0h\0\0\0i", 3*4, one);
+      check_str (z, "\0\0\0n\0\0\0o\0\0\0p", 3*4, two);
+#else
+#error "Unsupported __BYTE_ORDER__"
+#endif
     }
   else if (num == 1)
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       if (memcmp ((const char*) x->base_addr, "a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p\0\0\0", 9*4) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) y->base_addr, "a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p\0\0\0", 9*4) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) z->base_addr, "a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p\0\0\0", 9*4) != 0)
 	__builtin_abort ();
+#else
+      if (memcmp ((const char*) x->base_addr, "\0\0\0a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p", 9*4) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) y->base_addr, "\0\0\0a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p", 9*4) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) z->base_addr, "\0\0\0a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p", 9*4) != 0)
+	__builtin_abort ();
+#endif
     }
   else if (num == 2)
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       if (memcmp ((const char*) x->base_addr, "d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m\0\0\0", 9*4) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) y->base_addr, "d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m\0\0\0", 9*4) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) z->base_addr, "d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m\0\0\0", 9*4) != 0)
 	__builtin_abort ();
+#else
+      if (memcmp ((const char*) x->base_addr, "\0\0\0d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m", 9*4) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) y->base_addr, "\0\0\0d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m", 9*4) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) z->base_addr, "\0\0\0d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m", 9*4) != 0)
+	__builtin_abort ();
+#endif
     }
   else
     __builtin_abort ();
@@ -144,6 +176,7 @@ do_call (CFI_cdesc_t *x, CFI_cdesc_t *y, CFI_cdesc_t *z,
   // intent_in
   if (intent_in && !is_cont && num == 1)
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       check_str (x, "a\0\0\0b\0\0\0c\0\0\0", 3*4, zero);
       check_str (x, "g\0\0\0h\0\0\0i\0\0\0", 3*4, one);
       check_str (x, "n\0\0\0o\0\0\0p\0\0\0", 3*4, two);
@@ -153,24 +186,53 @@ do_call (CFI_cdesc_t *x, CFI_cdesc_t *y, CFI_cdesc_t *z,
       check_str (z, "a\0\0\0b\0\0\0c\0\0\0", 3*4, zero);
       check_str (z, "g\0\0\0h\0\0\0i\0\0\0", 3*4, one);
       check_str (z, "n\0\0\0o\0\0\0p\0\0\0", 3*4, two);
+#else
+      check_str (x, "\0\0\0a\0\0\0b\0\0\0c", 3*4, zero);
+      check_str (x, "\0\0\0g\0\0\0h\0\0\0i", 3*4, one);
+      check_str (x, "\0\0\0n\0\0\0o\0\0\0p", 3*4, two);
+      check_str (y, "\0\0\0a\0\0\0b\0\0\0c", 3*4, zero);
+      check_str (y, "\0\0\0g\0\0\0h\0\0\0i", 3*4, one);
+      check_str (y, "\0\0\0n\0\0\0o\0\0\0p", 3*4, two);
+      check_str (z, "\0\0\0a\0\0\0b\0\0\0c", 3*4, zero);
+      check_str (z, "\0\0\0g\0\0\0h\0\0\0i", 3*4, one);
+      check_str (z, "\0\0\0n\0\0\0o\0\0\0p", 3*4, two);
+#endif
     }
   else if (intent_in && num == 1)
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       if (memcmp ((const char*) x->base_addr, "a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p\0\0\0", 9*4) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) y->base_addr, "a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p\0\0\0", 9*4) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) z->base_addr, "a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p\0\0\0", 9*4) != 0)
 	__builtin_abort ();
+#else
+      if (memcmp ((const char*) x->base_addr, "\0\0\0a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p", 9*4) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) y->base_addr, "\0\0\0a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p", 9*4) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) z->base_addr, "\0\0\0a\0\0\0b\0\0\0c\0\0\0g\0\0\0h\0\0\0i\0\0\0n\0\0\0o\0\0\0p", 9*4) != 0)
+	__builtin_abort ();
+#endif
     }
   else if (intent_in && num == 2)
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       if (memcmp ((const char*) x->base_addr, "d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m\0\0\0", 9) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) y->base_addr, "d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m\0\0\0", 9) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) z->base_addr, "d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m\0\0\0", 9) != 0)
 	__builtin_abort ();
+#else
+      if (memcmp ((const char*) x->base_addr, "\0\0\0d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m", 9) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) y->base_addr, "\0\0\0d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m", 9) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) z->base_addr, "\0\0\0d\0\0\0e\0\0\0f\0\0\0g\0\0\0h\0\0\0i\0\0\0j\0\0\0l\0\0\0m", 9) != 0)
+	__builtin_abort ();
+#endif
     }
   else if (intent_in)
     __builtin_abort ();
@@ -179,15 +241,22 @@ do_call (CFI_cdesc_t *x, CFI_cdesc_t *y, CFI_cdesc_t *z,
       if (is_cont && num == 1)
         {
 	  /* Copy in - set the value to check that no copy out is done. */
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
 	  memcpy ((char*) x->base_addr, "1\0\0\0""2\0\0\0""3\0\0\0""4\0\0\0""5\0\0\0""6\0\0\0""7\0\0\0""8\0\0\0""9\0\0\0", 9*4);
 	  memcpy ((char*) y->base_addr, "1\0\0\0""2\0\0\0""3\0\0\0""4\0\0\0""5\0\0\0""6\0\0\0""7\0\0\0""8\0\0\0""9\0\0\0", 9*4);
 	  memcpy ((char*) z->base_addr, "1\0\0\0""2\0\0\0""3\0\0\0""4\0\0\0""5\0\0\0""6\0\0\0""7\0\0\0""8\0\0\0""9\0\0\0", 9*4);
+#else
+	  memcpy ((char*) x->base_addr, "\0\0\0""1\0\0\0""2\0\0\0""3\0\0\0""4\0\0\0""5\0\0\0""6\0\0\0""7\0\0\0""8\0\0\0""9", 9*4);
+	  memcpy ((char*) y->base_addr, "\0\0\0""1\0\0\0""2\0\0\0""3\0\0\0""4\0\0\0""5\0\0\0""6\0\0\0""7\0\0\0""8\0\0\0""9", 9*4);
+	  memcpy ((char*) z->base_addr, "\0\0\0""1\0\0\0""2\0\0\0""3\0\0\0""4\0\0\0""5\0\0\0""6\0\0\0""7\0\0\0""8\0\0\0""9", 9*4);
+#endif
         }
       return addr1;
     }
   // !intent_in
   if (!is_cont && num == 1)
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       check_str (x, "A\0\0\0B\0\0\0C\0\0\0", 3*4, zero);
       check_str (x, "D\0\0\0E\0\0\0F\0\0\0", 3*4, one);
       check_str (x, "G\0\0\0H\0\0\0I\0\0\0", 3*4, two);
@@ -197,15 +266,35 @@ do_call (CFI_cdesc_t *x, CFI_cdesc_t *y, CFI_cdesc_t *z,
       check_str (z, "A\0\0\0B\0\0\0C\0\0\0", 3*4, zero);
       check_str (z, "D\0\0\0E\0\0\0F\0\0\0", 3*4, one);
       check_str (z, "G\0\0\0H\0\0\0I\0\0\0", 3*4, two);
+#else
+      check_str (x, "\0\0\0A\0\0\0B\0\0\0C", 3*4, zero);
+      check_str (x, "\0\0\0D\0\0\0E\0\0\0F", 3*4, one);
+      check_str (x, "\0\0\0G\0\0\0H\0\0\0I", 3*4, two);
+      check_str (y, "\0\0\0A\0\0\0B\0\0\0C", 3*4, zero);
+      check_str (y, "\0\0\0D\0\0\0E\0\0\0F", 3*4, one);
+      check_str (y, "\0\0\0G\0\0\0H\0\0\0I", 3*4, two);
+      check_str (z, "\0\0\0A\0\0\0B\0\0\0C", 3*4, zero);
+      check_str (z, "\0\0\0D\0\0\0E\0\0\0F", 3*4, one);
+      check_str (z, "\0\0\0G\0\0\0H\0\0\0I", 3*4, two);
+#endif
     }
   else
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       if (memcmp ((const char*) x->base_addr, "A\0\0\0B\0\0\0C\0\0\0D\0\0\0E\0\0\0F\0\0\0G\0\0\0H\0\0\0I\0\0\0", 9*4) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) y->base_addr, "A\0\0\0B\0\0\0C\0\0\0D\0\0\0E\0\0\0F\0\0\0G\0\0\0H\0\0\0I\0\0\0", 9*4) != 0)
 	__builtin_abort ();
       if (memcmp ((const char*) z->base_addr, "A\0\0\0B\0\0\0C\0\0\0D\0\0\0E\0\0\0F\0\0\0G\0\0\0H\0\0\0I\0\0\0", 9*4) != 0)
 	__builtin_abort ();
+#else
+      if (memcmp ((const char*) x->base_addr, "\0\0\0A\0\0\0B\0\0\0C\0\0\0D\0\0\0E\0\0\0F\0\0\0G\0\0\0H\0\0\0I", 9*4) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) y->base_addr, "\0\0\0A\0\0\0B\0\0\0C\0\0\0D\0\0\0E\0\0\0F\0\0\0G\0\0\0H\0\0\0I", 9*4) != 0)
+	__builtin_abort ();
+      if (memcmp ((const char*) z->base_addr, "\0\0\0A\0\0\0B\0\0\0C\0\0\0D\0\0\0E\0\0\0F\0\0\0G\0\0\0H\0\0\0I", 9*4) != 0)
+	__builtin_abort ();
+#endif
     }
   return addr1;
 }
@@ -275,15 +364,27 @@ reset_var (CFI_cdesc_t *x, int num)
 
   if (num == 1)
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       set_str (x, "a\0\0\0b\0\0\0c\0\0\0", 3*4, zero);
       set_str (x, "g\0\0\0h\0\0\0i\0\0\0", 3*4, one);
       set_str (x, "n\0\0\0o\0\0\0p\0\0\0", 3*4, two);
+#else
+      set_str (x, "\0\0\0a\0\0\0b\0\0\0c", 3*4, zero);
+      set_str (x, "\0\0\0g\0\0\0h\0\0\0i", 3*4, one);
+      set_str (x, "\0\0\0n\0\0\0o\0\0\0p", 3*4, two);
+#endif
     }
   else if (num == 2)
     {
+#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
       set_str (x, "d\0\0\0e\0\0\0f\0\0\0", 3*4, zero);
       set_str (x, "g\0\0\0h\0\0\0i\0\0\0", 3*4, one);
       set_str (x, "j\0\0\0l\0\0\0m\0\0\0", 3*4, two);
+#else
+      set_str (x, "\0\0\0d\0\0\0e\0\0\0f", 3*4, zero);
+      set_str (x, "\0\0\0g\0\0\0h\0\0\0i", 3*4, one);
+      set_str (x, "\0\0\0j\0\0\0l\0\0\0m", 3*4, two);
+#endif
     }
   else
     __builtin_abort ();