| source [file join [file dirname [file normalize [info script]]] tclbuildtest.tcl] | |
| package require tclbuildtest | |
| ::tclbuildtest::sandbox { | |
| foreach b {{} static} { | |
| foreach s {real complex} { | |
| test [list c mpi double $s $b] { | |
| if {[constraint? complex]} {set input cg20.cua} else {set input g20.rua} | |
| run [build [require superlu_dist msmpi] p[x]drive.c [x]create_matrix.c] $input | |
| } | |
| } | |
| } | |
| } |