1! { dg-do compile } 2! PR fortran/52531 3module test_mod 4 type, public :: test_type 5 end type 6contains 7 subroutine foo(bar) 8 type(test_type) :: bar 9!$omp parallel default(none) shared(bar) ! Compiles if one removes default(none) 10 call question(bar) 11!$omp end parallel 12 end subroutine 13 subroutine question(var) 14 class(test_type), intent(in) :: var ! Compiles if one replaces class by type 15 end subroutine 16end module 17