From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Thu, 27 Dec 2018 20:57:12 +0000 (+0000)
Subject: aligned1.f03: Fix invalid code that now causes an error after r267415.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b3c64ed0b0589623146d28ebb41aa68b56cfeeca;p=gcc.git

aligned1.f03: Fix invalid code that now causes an error after r267415.

2018-12-27  Steven G. Kargl  <kargl@gcc.gnu.org>

	* libgomp.fortran/aligned1.f03: Fix invalid code that now causes
	an error after r267415.

From-SVN: r267436
---

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  <kargl@gcc.gnu.org>
+
+	* libgomp.fortran/aligned1.f03: Fix invalid code that now causes
+	an error after r267415.
+
 2018-12-27  Martin Liska  <mliska@suse.cz>
 
 	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