blob: d1fe9c76bd0bbac4433798a2f02a8fa7420da2b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
! PR fortran/95980 - ICE in get_unique_type_string, at fortran/class.c:485
program p
type t
integer :: a
end type t
class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" }
select type (y => x)
end select
end
|