expected <- 0   
test(id=7, code={   
argv <- structure(list(x = structure(c(0.483017750550061+0i, 0.399143285583705+0i,    
0.0162145779468119+0i, 0.125083255348727+0i, 0.0706489166477695+0i,    
0.504917626501992+0i, 0.327679358422756+0i, 0.411779605317861+0i,    
0.202413034392521+0i, 0.307096319855191+0i, 0.642031987197697+0i,    
0.276873307069764+0i, 0.103556007146835+0i, 0.256002754438668+0i,    
0.179779380792752+0i, 0.247455857461318+0i, 0.215011228807271+0i,    
0.493673762306571+0i, 0.653446026844904+0i, 0.573559894575737+0i,    
0.863887825980783+0i, 0.637789903208613+0i, 0.0137805955018848+0i,    
0.529164811130613+0i, 0.271472703316249+0i), .Dim = c(5L, 5L))), .Names = "x")   
do.call('rcond', argv);   
},  o = expected);   
   
