19 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Test SELECT TYPE errors: C11573 4subroutine s1()5 type :: t6 end type7 procedure(f) :: ff8 !ERROR: Selector is not a named variable: 'associate-name =>' is required9 select type(ff())10 class is(t)11 class default12 end select13contains14 function f()15 class(t), pointer :: f16 f => null()17 end function18end subroutine19