declare string:    "complex"//"(kind=REAL32)"//""//""
declare component: complex(kind=REAL32)
declare result:    complex(kind=REAL32)
declare dummy:     complex(kind=REAL32)

a == b:            a == b
a NE b:            a /= b
a <= b:            __T_LE_SCALAR__(a,b)
a >= b:            __T_GE_SCALAR__(a,b)
a <  b:            __T_LT_SCALAR__(a,b)
a >  b:            __T_GT_SCALAR__(a,b)

FREE(x):           
COPY(dst,src):     dst=src
MOVE(dst,src):     dst=src
