! { dg-do compile }
! { dg-options -Os }
! PR 78865 - this used to ICE.
program p
   call sub (3)
end
subroutine sub (x)
   integer :: x, i, n
   do i = 1, x
      if ( n /= 0 ) stop
      call sub2
   end do
   print *, x, n
end
subroutine sub2
   call sub (*99) ! { dg-error "Unexpected alternate return specifier" }
   call sub (99.) ! { dg-warning "Type mismatch in argument" }
99 stop
end