flang/test/Semantics/resolve15.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 module m
   3   real :: var
   4   interface i
   5     !ERROR: 'var' is not a procedure
   6     procedure :: sub, var
   7     !ERROR: Procedure 'bad' not found
   8     procedure :: bad
   9   end interface
  10   interface operator(.foo.)
  11     !ERROR: 'var' is not a procedure
  12     procedure :: var
  13     !ERROR: OPERATOR(.foo.) procedure 'sub' must be a function
  14     procedure :: sub
  15     !ERROR: Procedure 'bad' not found
  16     procedure :: bad
  17   end interface
  18 contains
  19   subroutine sub
  20   end
  21 end
  22
  23 subroutine s
  24   interface i
  25     !ERROR: 'sub' is not a module procedure
  26     module procedure :: sub
  27   end interface
  28   interface assignment(=)
  29     !ERROR: 'sub' is not a module procedure
  30     module procedure :: sub
  31   end interface
  32 contains
  33   subroutine sub(x, y)
  34     real, intent(out) :: x
  35     logical, intent(in) :: y
  36   end
  37 end
  38
  39 module m2
  40   interface
  41     module subroutine specific
  42     end subroutine
  43   end interface
  44   interface generic
  45      module procedure specific
  46   end interface
  47 end module