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.