1! PR fortran/56052
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4
5subroutine middle(args)
6  type args_t
7  end type
8  type, extends(args_t) :: scan_args_t
9  end type
10  class(args_t),intent(inout) :: args
11  !$omp single
12    select type (args)
13      type is (scan_args_t)
14    end select
15  !$omp end single
16end subroutine middle
17