http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56052
Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |Joost.VandeVondele at mat
| |dot ethz.ch
--- Comment #3 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch>
2013-01-20 16:56:23 UTC ---
reduced:
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
