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 subprogram
   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 subprogram
  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