Check type compatibility

Hi all,
is there a way to check if two attribute are type compatible (for 
example integer and serial, integer and integer, character varying and 
text, etc..)?

Example:
IF (compatible (table1.att1, table2.att2)) THEN        ...
ELSE        ...
END IF;

Thanks