| ! RUN: %python %S/test_errors.py %s %flang_fc1 |
| module m |
| real :: var |
| interface i |
| !ERROR: 'var' is not a subprogram |
| procedure :: sub, var |
| !ERROR: Procedure 'bad' not found |
| procedure :: bad |
| end interface |
| interface operator(.foo.) |
| !ERROR: 'var' is not a subprogram |
| procedure :: var |
| !ERROR: OPERATOR(.foo.) procedure 'sub' must be a function |
| procedure :: sub |
| !ERROR: Procedure 'bad' not found |
| procedure :: bad |
| end interface |
| contains |
| subroutine sub |
| end |
| end |
| |
| subroutine s |
| interface i |
| !ERROR: 'sub' is not a module procedure |
| module procedure :: sub |
| end interface |
| interface assignment(=) |
| !ERROR: 'sub' is not a module procedure |
| module procedure :: sub |
| end interface |
| contains |
| subroutine sub(x, y) |
| real, intent(out) :: x |
| logical, intent(in) :: y |
| end |
| end |