! 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 |