public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r12-4528] gfortran.dg/bind-c-contiguous-5.c: Big-endian fix
@ 2021-10-20 6:48 Tobias Burnus
0 siblings, 0 replies; only message in thread
From: Tobias Burnus @ 2021-10-20 6:48 UTC (permalink / raw)
To: gcc-cvs
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 ();
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2021-10-20 6:48 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-10-20 6:48 [gcc r12-4528] gfortran.dg/bind-c-contiguous-5.c: Big-endian fix Tobias Burnus
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).