From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 27 Dec 2018 20:57:12 +0000 (+0000)
Subject: 2018-12-27  Steven G. Kargl  <kargl@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=5b7ae43488a976db5e6ce2a509b6826afab768e5;p=thirdparty%2Fgcc.git

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

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@267436 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 01e0999181f9..935f7da3b8e4 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 582ea03c029b..19daed80f02f 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