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

gcc/testsuite/ChangeLog

+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

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