flang/test/Semantics/generic04.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Warn about inaccessible specific procedures in a generic defined operator
   3 module m
   4   interface operator (.foo.)
   5     !WARN: OPERATOR(.foo.) function 'noargs' must have 1 or 2 dummy arguments
   6     module procedure noargs
   7     !WARN: OPERATOR(.foo.) function 'noargs' must have 1 or 2 dummy arguments
   8     module procedure threeargs
   9   end interface
  10   type t
  11    contains
  12     procedure :: bad
  13     !WARN: OPERATOR(.bar.) function 'bad' should have 1 or 2 dummy arguments
  14     generic :: operator (.bar.) => bad
  15   end type
  16  contains
  17   real function noargs()
  18     noargs = 0.
  19   end
  20   real function threeargs(fee,fie,foe)
  21     real, intent(in) :: fee, fie, foe
  22   end
  23   function bad(this,x,y)
  24     type(t) :: bad
  25     class(t), intent(in) :: this, x, y
  26     bad = x
  27   end
  28 end