gcc/testsuite/gfortran.dg/gomp/polymorphic-mapping-2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

type t
  integer :: t
end type t
class(t), target, allocatable :: c, ca(:)
class(*), pointer :: p, pa(:)
integer :: x
logical ll
allocate( t :: c, ca(5))
p => c
pa => ca

!$omp target  !  { dg-warning "Mapping of polymorphic list item 'ca' is unspecified behavior \\\[-Wopenmp\\\]" }
  ll = allocated(ca)
!$omp end target 

end