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