Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.
! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
! Test SELECT TYPE errors: C1157
subroutine s1()
type :: t
end type
procedure(f) :: ff
!ERROR: Selector is not a named variable: 'associate-name =>' is required
select type(ff())
class is(t)
class default
end select
contains
function f()
class(t), pointer :: f
f => null()
end function
end subroutine