29 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Warn about inaccessible specific procedures in a generic defined operator3module m4 interface operator (.foo.)5 !WARN: OPERATOR(.foo.) function 'noargs' must have 1 or 2 dummy arguments6 module procedure noargs7 !WARN: OPERATOR(.foo.) function 'noargs' must have 1 or 2 dummy arguments8 module procedure threeargs9 end interface10 type t11 contains12 procedure :: bad13 !WARN: OPERATOR(.bar.) function 'bad' should have 1 or 2 dummy arguments14 generic :: operator (.bar.) => bad15 end type16 contains17 real function noargs()18 noargs = 0.19 end20 real function threeargs(fee,fie,foe)21 real, intent(in) :: fee, fie, foe22 end23 function bad(this,x,y)24 type(t) :: bad25 class(t), intent(in) :: this, x, y26 bad = x27 end28end29