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