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