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