48 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 real :: var4 interface i5 !ERROR: 'var' is not a procedure6 procedure :: sub, var7 !ERROR: 'bad' is not a procedure8 procedure :: bad9 end interface10 interface operator(.foo.)11 !ERROR: 'var' is not a procedure12 procedure :: var13 !ERROR: OPERATOR(.foo.) procedure 'sub' must be a function14 procedure :: sub15 !ERROR: 'bad' is not a procedure16 procedure :: bad17 end interface18contains19 subroutine sub20 end21end22 23subroutine s24 interface i25 !ERROR: 'sub' is not a module procedure26 module procedure :: sub27 end interface28 interface assignment(=)29 !ERROR: 'sub' is not a module procedure30 module procedure :: sub31 end interface32contains33 subroutine sub(x, y)34 real, intent(out) :: x35 logical, intent(in) :: y36 end37end38 39module m240 interface41 module subroutine specific42 end subroutine43 end interface44 interface generic45 module procedure specific46 end interface47end module48