29 lines
806 B
Fortran
29 lines
806 B
Fortran
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
||
|
|
! Warn about inaccessible specific procedures in a generic defined operator
|
||
|
|
module m
|
||
|
|
interface operator (.foo.)
|
||
|
|
!WARN: OPERATOR(.foo.) function 'noargs' must have 1 or 2 dummy arguments
|
||
|
|
module procedure noargs
|
||
|
|
!WARN: OPERATOR(.foo.) function 'noargs' must have 1 or 2 dummy arguments
|
||
|
|
module procedure threeargs
|
||
|
|
end interface
|
||
|
|
type t
|
||
|
|
contains
|
||
|
|
procedure :: bad
|
||
|
|
!WARN: OPERATOR(.bar.) function 'bad' should have 1 or 2 dummy arguments
|
||
|
|
generic :: operator (.bar.) => bad
|
||
|
|
end type
|
||
|
|
contains
|
||
|
|
real function noargs()
|
||
|
|
noargs = 0.
|
||
|
|
end
|
||
|
|
real function threeargs(fee,fie,foe)
|
||
|
|
real, intent(in) :: fee, fie, foe
|
||
|
|
end
|
||
|
|
function bad(this,x,y)
|
||
|
|
type(t) :: bad
|
||
|
|
class(t), intent(in) :: this, x, y
|
||
|
|
bad = x
|
||
|
|
end
|
||
|
|
end
|