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