| ! RUN: %S/test_errors.sh %s %t %f18 |
| module m |
| interface a |
| subroutine s(x) |
| real :: x |
| end subroutine |
| !ERROR: 's' is already declared in this scoping unit |
| subroutine s(x) |
| integer :: x |
| end subroutine |
| end interface |
| end module |
| |
| module m2 |
| interface s |
| subroutine s(x) |
| real :: x |
| end subroutine |
| !ERROR: 's' is already declared in this scoping unit |
| subroutine s(x) |
| integer :: x |
| end subroutine |
| end interface |
| end module |
| |
| module m3 |
| interface s |
| subroutine s |
| end |
| end interface |
| contains |
| !ERROR: 's' is already declared in this scoping unit |
| subroutine s |
| end subroutine |
| end |