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 01e0999181f9f8aa7716dd526b258d489f0002f5..935f7da3b8e441fd7c402d9a103f6e6e57592939 100644 (file)
--- 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 582ea03c029b6a965054439d6c6dbd70256fe88e..19daed80f02f6c7740104da111b978a5daafaca9 100644 (file)
--- 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