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