! RUN: %flang_fc1 -fsyntax-only -pedantic %s  2>&1 | FileCheck %s --allow-empty
! Regression test for bogus use-association name conflict
!   error: Cannot use-associate 's2'; it is already declared in this scope
! CHECK-NOT: error:
module m1
 contains
  subroutine s1
  end
  subroutine s2
  end
end

module m2
  use m1, s1a => s1
  use m1, s2a => s2
 contains
  subroutine s1
  end
  subroutine s2
  end
end