diff options
author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-12-27 20:57:12 +0000 |
---|---|---|
committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-12-27 20:57:12 +0000 |
commit | 5b7ae43488a976db5e6ce2a509b6826afab768e5 (patch) | |
tree | b03185c901e37177506b7cb31221f3330e4513ba /libgomp | |
parent | 59eaf5af5bf45a6e5b09c994d6e7a1587169344a (diff) |
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
Diffstat (limited to 'libgomp')
-rw-r--r-- | libgomp/testsuite/libgomp.fortran/aligned1.f03 | 4 |
1 files changed, 2 insertions, 2 deletions
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 |