36 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 interface a4 subroutine s(x)5 real :: x6 end subroutine7 !ERROR: 's' is already declared in this scoping unit8 subroutine s(x)9 integer :: x10 end subroutine11 end interface12end module13 14module m215 interface s16 subroutine s(x)17 real :: x18 end subroutine19 !ERROR: 's' is already declared in this scoping unit20 subroutine s(x)21 integer :: x22 end subroutine23 end interface24end module25 26module m327 interface s28 subroutine s29 end30 end interface31contains32 !ERROR: 's' is already declared in this scoping unit33 subroutine s34 end subroutine35end36