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