! { dg-do compile }!! PR 42053: [OOP] SELECT TYPE: reject duplicate CLASS IS blocks!! Contributed by Janus Weil <janus@gcc.gnu.org>type::tinteger::iend type CLASS(t),pointer::xselect type(x)class is(t)print*,"a"class is(t)! { dg-error "Double CLASS IS block" }print*,"b"end selectend