1! RUN: %S/test_errors.sh %s %t %f18 2! Test SELECT TYPE errors: C1157 3 4subroutine s1() 5 type :: t 6 end type 7 procedure(f) :: ff 8 !ERROR: Selector is not a named variable: 'associate-name =>' is required 9 select type(ff()) 10 class is(t) 11 class default 12 end select 13contains 14 function f() 15 class(t), pointer :: f 16 f => null() 17 end function 18end subroutine 19