[Bug fortran/84276] Invalid error for valid statement function

[sgk at troutmask dot apl.washington.edu]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84276

--- Comment #1 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
Reduced testcase.

      subroutine stepns(hh,h,s,w)
      real, intent(inout) :: h,hh,s
      real, intent(out)  :: w
      real :: qofs
      qofs(s)=s
      w=qofs(hh+h)
      end subroutine stepns

Problem occurs with interface.c:3219.