It seems the Intel 2020 Fortran compiler has screwed up the handling of class pointer inside a parallel region. The following code snippet example works fine with Intel 2019 compiler and gfortran.
Program main
type, abstract :: abstype
integer :: me=0
end type abstype
type, extends(abstype) :: type1
end type type1
type(type1), target :: t1
class(abstype), pointer :: base
integer ix, iy, nx, ny
nx = 2
ny = 2
base => t1
select type(base)
class is (type1)
print *, base%me
!$omp parallel do default(shared) private(iy,ix)
do iy = 1,ny
do ix = 1,nx
print *, ix, iy, base%me
enddo
enddo
class default
end select
print *, "DONE"
end Program
