' TEST_MODE : COMPILE_ONLY_OK
#cmdline "-Wc -Wno-infinite-recursion"

type T
	as integer i
	declare sub test( )
	private:
	declare operator @( ) as T ptr
end type

operator T.@( ) as T ptr
	operator = @this
end operator

sub T.test( )
	dim as T x
	dim as T ptr p = @x
end sub
