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