1! RUN: %S/test_errors.sh %s %t %flang_fc1 2! REQUIRES: shell 3module m 4 interface a 5 subroutine s(x) 6 real :: x 7 end subroutine 8 !ERROR: 's' is already declared in this scoping unit 9 subroutine s(x) 10 integer :: x 11 end subroutine 12 end interface 13end module 14 15module m2 16 interface s 17 subroutine s(x) 18 real :: x 19 end subroutine 20 !ERROR: 's' is already declared in this scoping unit 21 subroutine s(x) 22 integer :: x 23 end subroutine 24 end interface 25end module 26 27module m3 28 interface s 29 subroutine s 30 end 31 end interface 32contains 33 !ERROR: 's' is already declared in this scoping unit 34 subroutine s 35 end subroutine 36end 37