1! { dg-do compile }
2! PR fortran/86470 - ICE with OpenMP, class(*)
3
4program p
5  implicit none
6  class(*), allocatable :: val
7!$OMP PARALLEL private(val)
8  allocate(integer::val)
9  val = 1
10  deallocate(val)
11!$OMP END PARALLEL
12end
13