1! { dg-do compile } 2! 3! PR 42053: [OOP] SELECT TYPE: reject duplicate CLASS IS blocks 4! 5! Contributed by Janus Weil <janus@gcc.gnu.org> 6 7 type :: t 8 integer :: i 9 end type 10 11 CLASS(t),pointer :: x 12 13 select type (x) 14 class is (t) 15 print *,"a" 16 class is (t) ! { dg-error "Double CLASS IS block" } 17 print *,"b" 18 end select 19 20end 21