| ! RUN: %python %S/test_errors.py %s %flang_fc1 |
| 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 |