@@ -1,3 +1,18 @@
+rename dg-init dg-init_
+proc dg-init { } {
+ dg-init_
+ global CLOCK_START
+ set CLOCK_START [clock seconds]
+ verbose "TIME $CLOCK_START START [info script]" 0
+}
+rename dg-finish dg-finish_
+proc dg-finish { } {
+ dg-finish_
+ set CLOCK [clock seconds]
+ global CLOCK_START
+ verbose "TIME $CLOCK ([expr $CLOCK - $CLOCK_START]) END [info script]" 0
+}
+
proc libgomp-dg-test { prog do_what extra_tool_flags } {
return [gcc-dg-test-1 libgomp_target_compile $prog $do_what $extra_tool_flags]
}