1! { dg-do compile } 2! PR fortran/67525 3! Code contributed by Gerhard Steinmetz 4! 5real function f(x) 6 select type (x) ! { dg-error "shall be polymorphic" } 7 end select 8end function f 9 10real function g(x) 11 select type (x=>null()) ! { dg-error "shall be polymorphic" } 12 end select 13end function g 14 15subroutine a(x) 16 select type (x) ! { dg-error "shall be polymorphic" } 17 end select 18end subroutine a 19