gcc/testsuite/gfortran.dg/select_type_9.f03

   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
  20 end