diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e5799432c3b..9edc9d6812d 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-21  Ken Werner  <ken.werner@de.ibm.com>
+
+	* lib/opencl.exp (skip_opencl_tests): Add missing compile_flags
+	argument to the gdb_compile_opencl_hostapp call.
+
 2011-01-19  Yao Qi  <yao@codesourcery.com>
 
 	* lib/dwarf.exp (dwarf2_support): Change supported targets to a
diff --git a/gdb/testsuite/lib/opencl.exp b/gdb/testsuite/lib/opencl.exp
index b5e7c098a46..c1b52916654 100644
--- a/gdb/testsuite/lib/opencl.exp
+++ b/gdb/testsuite/lib/opencl.exp
@@ -50,7 +50,7 @@ proc skip_opencl_tests {} {
     verbose "$me:  compiling OpenCL test app" 2
     set compile_flags {debug nowarnings quiet}
 
-    if { [gdb_compile_opencl_hostapp "${clprogram}" "${executable}" "" ] != "" } {
+    if { [gdb_compile_opencl_hostapp "${clprogram}" "${executable}" "${compile_flags}" ] != "" } {
         verbose "$me:  compiling OpenCL binary failed, returning 1" 2
 	return [set skip_opencl_tests_saved($board) 1]
     }