flang/test/Semantics/resolve51.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Test SELECT TYPE errors: C1157
   3
   4 subroutine 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
  13 contains
  14   function f()
  15     class(t), pointer :: f
  16     f => null()
  17   end function
  18 end subroutine