! RUN: %S/test_errors.sh %s %t %f18
module m
  interface a
    subroutine s(x)
      real :: x
    end subroutine
    !ERROR: 's' is already declared in this scoping unit
    subroutine s(x)
      integer :: x
    end subroutine
  end interface
end module

module m2
  interface s
    subroutine s(x)
      real :: x
    end subroutine
    !ERROR: 's' is already declared in this scoping unit
    subroutine s(x)
      integer :: x
    end subroutine
  end interface
end module

module m3
  interface s
    subroutine s
    end
  end interface
contains
  !ERROR: 's' is already declared in this scoping unit
  subroutine s
  end subroutine
end