program main
!error: p1 an p2 must be function
	interface 	OPERATOR (+)
	subroutine  p1(x)
	integer x
	end
	subroutine p2(a,b)
	real a,b
	end
	end interface
end	
