Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90

! PR middle-end/63247

program test
  implicit none

  integer(kind=2) a(4)

  a = 10;

  !$acc parallel copy(a(2:4))
  a(2) = 52
  a(3) = 53
  a(4) = 54
  !$acc end parallel

  if (a(1) .ne. 10) STOP 1
  if (a(2) .ne. 52) STOP 2
  if (a(3) .ne. 53) STOP 3
  if (a(4) .ne. 54) STOP 4

end program test
Update gcc to 5.2.0 2015-08-28 15:33:40 +00:00			`! PR middle-end/63247`

			`program test`
			`implicit none`

			`integer(kind=2) a(4)`

			`a = 10;`

			`!$acc parallel copy(a(2:4))`
			`a(2) = 52`
			`a(3) = 53`
			`a(4) = 54`
			`!$acc end parallel`

upgrade to gcc 8.2.0 and newlib 3.0.0 2018-12-28 15:30:48 +00:00			`if (a(1) .ne. 10) STOP 1`
			`if (a(2) .ne. 52) STOP 2`
			`if (a(3) .ne. 53) STOP 3`
			`if (a(4) .ne. 54) STOP 4`
Update gcc to 5.2.0 2015-08-28 15:33:40 +00:00
			`end program test`