proc postbase  { src_code } {
    global srcdir
    global subdir
    global comp_output
    global exec_output
    global verbose
    global pass

    set fail_message $subdir/$src_code
    set pass_message $subdir/$src_code
    set pass yes

    freefem_start $srcdir/$subdir/$src_code

    if ![regexp ".*PASS.*" $comp_output] then {
	set pass no
    } 
    
    if [string match $pass "yes"] then {
	pass $pass_message
    } else {
	fail $fail_message
    }   

}
