anchor.diff:  open System.Reflection
   open Microsoft.FSharp.Quotations
   
  +[<Struct>]
  +type TestStruct =
  +    val x: int 
  +    val y: float
  +    new (x,y) = {x=x; y=y} 
   
   [<TestFixture>]
   type Translator() =
       
       let basePath = "../../../../Tests/Brahma.FSharp.OpenCL/Translator/Expected/"
   
  -    let deviceType = DeviceType.Cpu
  +    let deviceType = DeviceType.Gpu
       let platformName = "*"
   
       let provider =
  
positive.code: 
          checkCode command "Nested.Function.Carring.gen" "Nested.Function.Carring.cl"
  
  [<EntryPoint>]
  let f _ =
      //(new Translator()).``Nested functions``()
      (new Translator()).``Nested functions. Carring.``()
      //(new Brahma.FSharp.OpenCL.Full.Translator()).``Simple seq.``()
      0
negative.code:         checkCode command "Simple.Seq.gen" "Simple.Seq.cl"
  
      [<Test>]
      member this.``Simple seq of struct.``() = 
          let command = 
              <@ 
                  fun (range:_1D) (buf:array<TestStruct>) ->
                      buf.[0] <- buf.[1]
                      buf.[1] <- buf.[0]
              @>
  
          checkCode command "Simple.Seq.gen" "Simple.Seq.cl"
  
      [<Test>]
      member this.``Seq with bindings.``() = 
          let command = 
              <@ 
  