Fix sample using clCreateContextFromType