Help can't get ahdl BIDIR to work

TITLE "TEST";

SUBDESIGN TEST

(

nclr : INPUT;

write : INPUT;

clk : INPUT;

data[15..0] : BIDIR ;

)

VARIABLE

dataport[15..0] : tri ;

r_accum[15..0] : DFF;

BEGIN

r_accum[].d = (r_accum[] + 1);

r_accum[].clk = clk;

r_accum[].clrn = nclr;

dataport[].oe = !write;

dataport[] = r_accum[];

data[] = dataport[];

END;

dataport[] is working but data[] is not folowing in simulation.scf. I have found that it their is a data[].I and a data[].O in the .scf , the data[] wont folow the dataport but if I delete the data[].I from the .scf then it will but I cant write anything without the data[].I to input the data. What is the problem?