Fix gcc.c-torture/execute/ieee/cdivchkf.c on hpux

[official-gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / class-ptr-param.f95

! { dg-do run }

module typemod

type mytype
  integer :: a
end type mytype

contains

subroutine mysub(c)
  implicit none

  class(mytype), allocatable :: c

!$acc parallel copy(c)
  c%a = 5
!$acc end parallel
end subroutine mysub

end module typemod

program main
  use typemod
  implicit none

  class(mytype), allocatable :: myvar
  allocate(mytype :: myvar)

  myvar%a = 0
  call mysub(myvar)

  if (myvar%a .ne. 5) stop 1
end program main