1! { dg-do compile }
2! PR fortran/69499
3! Contributed by Gerhard Steinmetz.
4module m
5   class(*) :: z        ! { dg-error "must be dummy, allocatable or pointer" }
6   select type (x => z) ! { dg-error "cannot appear in this scope" }
7end
8