OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Steven G. Kargl 2018-12-27 20:57:12 +00:00
parent dc65168eb6
commit b3c64ed0b0
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

4
libgomp/testsuite/libgomp.fortran/aligned1.f03
View File

@ -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