xref: /llvm-project/flang/test/Semantics/resolve19.f90 (revision 6c1ac141d3c98af9738bc77fcb55602cbff7751f)

! RUN: %python %S/test_errors.py %s %flang_fc1
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