diff options
| -rw-r--r-- | libgomp/testsuite/libgomp.c-c++-common/alloc-9.c | 12 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/alloc-1.F90 | 2 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/alloc-11.f90 | 18 |
3 files changed, 16 insertions, 16 deletions
diff --git a/libgomp/testsuite/libgomp.c-c++-common/alloc-9.c b/libgomp/testsuite/libgomp.c-c++-common/alloc-9.c index e4b7baf..b3682ef 100644 --- a/libgomp/testsuite/libgomp.c-c++-common/alloc-9.c +++ b/libgomp/testsuite/libgomp.c-c++-common/alloc-9.c @@ -195,25 +195,25 @@ main () if ((((uintptr_t) p) % 32) != 0) abort (); p[0] = 85; - p = (int *) omp_realloc (p, 420, a, a2); + p = (int *) omp_realloc (p, 320, a, a2); if ((((uintptr_t) p) % 16) != 0 || p[0] != 85) abort (); p[0] = 5; - p[419 / sizeof (int)] = 6; + p[319 / sizeof (int)] = 6; q = (int *) omp_alloc (sizeof (int), a); if ((((uintptr_t) q) % 16) != 0) abort (); q[0] = 43; - q = (int *) omp_realloc (q, 420, a2, a); + q = (int *) omp_realloc (q, 320, a2, a); if ((((uintptr_t) q) % 32) != 0 || q[0] != 43) abort (); q[0] = 44; - q[419 / sizeof (int)] = 8; - q = (int *) omp_realloc (q, 768, a2, a2); + q[319 / sizeof (int)] = 8; + q = (int *) omp_realloc (q, 568, a2, a2); if ((((uintptr_t) q) % 16) != 0 || q[0] != 44) abort (); q[0] = 7; - q[767 / sizeof (int)] = 8; + q[567 / sizeof (int)] = 8; omp_free (p, omp_null_allocator); omp_free (q, a2); omp_destroy_allocator (a2); diff --git a/libgomp/testsuite/libgomp.fortran/alloc-1.F90 b/libgomp/testsuite/libgomp.fortran/alloc-1.F90 index e636583..7e05169 100644 --- a/libgomp/testsuite/libgomp.fortran/alloc-1.F90 +++ b/libgomp/testsuite/libgomp.fortran/alloc-1.F90 @@ -117,7 +117,7 @@ q(1) = 7 q(768 / c_sizeof (i)) = 8 cr = omp_alloc (512_c_size_t, a2) - if (mod (transfer (cr, intptr), 16_c_intptr_t) /= 0) stop 13 + if (mod (transfer (cr, intptr), 4_c_intptr_t) /= 0) stop 13 call c_f_pointer (cr, r, [512 / c_sizeof (i)]) r(1) = 9 r(512 / c_sizeof (i)) = 10 diff --git a/libgomp/testsuite/libgomp.fortran/alloc-11.f90 b/libgomp/testsuite/libgomp.fortran/alloc-11.f90 index 22b4f92..b02c68f 100644 --- a/libgomp/testsuite/libgomp.fortran/alloc-11.f90 +++ b/libgomp/testsuite/libgomp.fortran/alloc-11.f90 @@ -230,32 +230,32 @@ program main if (mod (TRANSFER (p, iptr), 32) /= 0) & stop 36 ip(1) = 85 - p = omp_realloc (p, 420_c_size_t, a, a2) - call c_f_pointer (p, ip, [420 / c_sizeof (0)]) + p = omp_realloc (p, 320_c_size_t, a, a2) + call c_f_pointer (p, ip, [320 / c_sizeof (0)]) if (mod (TRANSFER (p, iptr), 16) /= 0 & .or. ip(1) /= 85) & stop 37 ip(1) = 5 - ip(420 / c_sizeof (0)) = 6 + ip(320 / c_sizeof (0)) = 6 q = omp_alloc (c_sizeof (0), a) call c_f_pointer (q, iq, [1]) if (mod (TRANSFER (q, iptr), 16) /= 0) & stop 38 iq(1) = 43 - q = omp_realloc (q, 420_c_size_t, a2, a) - call c_f_pointer (q, iq, [420 / c_sizeof (0)]) + q = omp_realloc (q, 320_c_size_t, a2, a) + call c_f_pointer (q, iq, [320 / c_sizeof (0)]) if (mod (TRANSFER (q, iptr), 32) /= 0 & .or. iq(1) /= 43) & stop 39 iq(1) = 44 - iq(420 / c_sizeof (0)) = 8 - q = omp_realloc (q, 768_c_size_t, a2, a2) - call c_f_pointer (q, iq, [768 / c_sizeof (0)]) + iq(320 / c_sizeof (0)) = 8 + q = omp_realloc (q, 568_c_size_t, a2, a2) + call c_f_pointer (q, iq, [568 / c_sizeof (0)]) if (mod (TRANSFER (q, iptr), 16) /= 0 & .or. iq(1) /= 44) & stop 40 iq(1) = 7 - iq(768 / c_sizeof (0)) = 8 + iq(568 / c_sizeof (0)) = 8 call omp_free (p, omp_null_allocator) call omp_free (q, a2) call omp_destroy_allocator (a2) |