From b3c64ed0b0589623146d28ebb41aa68b56cfeeca Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Thu, 27 Dec 2018 20:57:12 +0000 Subject: [PATCH] aligned1.f03: Fix invalid code that now causes an error after r267415. 2018-12-27 Steven G. Kargl * libgomp.fortran/aligned1.f03: Fix invalid code that now causes an error after r267415. From-SVN: r267436 --- gcc/testsuite/ChangeLog | 5 +++++ libgomp/testsuite/libgomp.fortran/aligned1.f03 | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 01e0999181f..935f7da3b8e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2018-12-27 Steven G. Kargl + + * libgomp.fortran/aligned1.f03: Fix invalid code that now causes + an error after r267415. + 2018-12-27 Martin Liska PR c++/88263 diff --git a/libgomp/testsuite/libgomp.fortran/aligned1.f03 b/libgomp/testsuite/libgomp.fortran/aligned1.f03 index 582ea03c029..19daed80f02 100644 --- a/libgomp/testsuite/libgomp.fortran/aligned1.f03 +++ b/libgomp/testsuite/libgomp.fortran/aligned1.f03 @@ -52,11 +52,11 @@ ! Attempt to create 64-byte aligned allocatable do i = 1, 64 allocate (c(1023 + i)) - if (iand (loc (c(1)), 63) == 0) exit + if (iand (int(loc(c(1)),8), 63_8) == 0) exit deallocate (c) allocate (b(i)%a(1023 + i)) allocate (c(1023 + i)) - if (iand (loc (c(1)), 63) == 0) exit + if (iand (int(loc(c(1)),8), 63_8) == 0) exit deallocate (c) end do if (allocated (c)) then