1! { dg-do compile }
2! PR fortran/66245
3! Original testcase by Gerhard Steinmetz
4! <gerhard dot steinmetz dot fortran at t-online dot de>
5program p
6   type t; end type
7   class(t), allocatable :: x
8   call s
9   contains
10      subroutine s
11         select type ( x )
12         class is ( )       ! { dg-error "error in CLASS IS" }
13         end select
14      end subroutine s
15end program p
16