diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-27 20:57:12 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-27 20:57:12 +0000 |
| commit | b3c64ed0b0589623146d28ebb41aa68b56cfeeca (patch) | |
| tree | b03185c901e37177506b7cb31221f3330e4513ba | |
| parent | dc65168eb679689ce37e1ab083a7efc3a0693a19 (diff) | |
| download | gcc-b3c64ed0b0589623146d28ebb41aa68b56cfeeca.zip gcc-b3c64ed0b0589623146d28ebb41aa68b56cfeeca.tar.gz gcc-b3c64ed0b0589623146d28ebb41aa68b56cfeeca.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/aligned1.f03 | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 01e0999..935f7da 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 582ea03..19daed8 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 |