22 lines · plain
1! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s --allow-empty2! Regression test for bogus use-association name conflict3! error: Cannot use-associate 's2'; it is already declared in this scope4! CHECK-NOT: error:5module m16 contains7 subroutine s18 end9 subroutine s210 end11end12 13module m214 use m1, s1a => s115 use m1, s2a => s216 contains17 subroutine s118 end19 subroutine s220 end21end22