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