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