gcc/testsuite/gfortran.dg/pr95584.f90

! { dg-do compile }

program p
   interface s
      subroutine g(x, *)
      end
      subroutine h(y, *)
      end
   end interface
end

! { dg-warning "Obsolescent feature: Alternate-return argument" " " { target *-*-* } 5 }
! { dg-warning "Obsolescent feature: Alternate-return argument" " " { target *-*-* } 7 }
! { dg-error ".1." " " { target *-*-* } 5 }
! { dg-error "Ambiguous interfaces in generic interface" " " { target *-*-* } 7 }