! RUN: %S/test_errors.sh %s %t %f18
! Test SELECT TYPE errors: C1157

subroutine s1()
  type :: t
  end type
  procedure(f) :: ff
  !ERROR: Selector is not a named variable: 'associate-name =>' is required
  select type(ff())
    class is(t)
    class default
  end select
contains
  function f()
    class(t), pointer :: f
    f => null()
  end function
end subroutine