blob: b5bc5a99c8dbc43b25ac78b2f426471b65d9f651 [file] [log] [blame]
! { dg-do compile }
! PR fortran/66245
! Original testcase by Gerhard Steinmetz
! <gerhard dot steinmetz dot fortran at t-online dot de>
program p
type t; end type
class(t), allocatable :: x
call s
contains
subroutine s
select type ( x )
class is ( ) ! { dg-error "error in CLASS IS" }
end select
end subroutine s
end program p