Retro68/gcc/libgomp/testsuite/lib/libgomp-dg.exp

proc libgomp-dg-test { prog do_what extra_tool_flags } {
    # Force the dumpbase for test.c to test.o, such that scan-offload-*-dump
    # will work.
    foreach opt $extra_tool_flags {
	if { [regexp ^-foffload=-fdump- $opt] } {
	    lappend extra_tool_flags "-save-temps"
	}
    }

    return [gcc-dg-test-1 libgomp_target_compile $prog $do_what $extra_tool_flags]
}

proc libgomp-dg-prune { system text } {
    return [gcc-dg-prune $system $text]
}