gdb/testsuite/gdb.opencl/vec_comps.exp

   1 # Copyright 2010-2012 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  15 #
  16 # Contributed by Ken Werner <ken.werner@de.ibm.com>.
  17 #
  18 # Tests component access of OpenCL vectors.
  19
  20 if $tracelevel {
  21     strace $tracelevel
  22 }
  23
  24 load_lib opencl.exp
  25
  26 if { [skip_opencl_tests] } {
  27     return 0
  28 }
  29
  30 set testfile "vec_comps"
  31 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]
  32
  33 # Compile the generic OpenCL host app
  34 if { [gdb_compile_opencl_hostapp "${clprogram}" "${testfile}" "" ] != "" } {
  35     untested ${testfile}.exp
  36     return -1
  37 }
  38
  39 # Load the OpenCL app
  40 clean_restart ${testfile}
  41
  42 # Set breakpoint at the OpenCL kernel
  43 gdb_test "tbreak testkernel" \
  44     "" \
  45     "Set pending breakpoint" \
  46     ".*Function \"testkernel\" not defined.*Make breakpoint pending.*y or \\\[n\\\]. $" \
  47     "y"
  48
  49 gdb_run_cmd
  50 gdb_test "" ".*reakpoint.*1.*testkernel.*" "run"
  51
  52 # Continue to the marker
  53 gdb_breakpoint [gdb_get_line_number "marker" "${clprogram}"]
  54 gdb_continue_to_breakpoint "marker"
  55
  56 # Check if the language was switched to opencl
  57 gdb_test "show language" "The current source language is \"auto; currently opencl\"\."
  58
  59 # Retrieve some information about the OpenCL version and the availability of extensions
  60 set opencl_version [get_integer_valueof "opencl_version" 0]
  61 set have_cl_khr_fp64 [get_integer_valueof "have_cl_khr_fp64" 0]
  62 set have_cl_khr_fp16 [get_integer_valueof "have_cl_khr_fp16" 0]
  63
  64 # Sanity checks
  65 proc check_basic { name type size } {
  66   gdb_test "ptype ${name}" "type = ${type} \\\[16\\\]"
  67   gdb_test "p sizeof(${name})" " = [expr ${size} * 16]"
  68   gdb_test "print/d ${name}" " = \\{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15\\}"
  69 }
  70
  71 proc check_type { name type alttype } {
  72   gdb_test "whatis ${name}.lo" "type = ${type}8"
  73   gdb_test "whatis ${name}.hi" "type = ${type}8"
  74   gdb_test "whatis ${name}.even" "type = ${type}8"
  75   gdb_test "whatis ${name}.odd" "type = ${type}8"
  76   gdb_test "whatis ${name}.low" "Invalid OpenCL vector component accessor low"
  77   gdb_test "whatis ${name}.high" "Invalid OpenCL vector component accessor high"
  78
  79   gdb_test "whatis ${name}.hi.even" "type = ${type}4"
  80   gdb_test "whatis ${name}.odd.odd.lo" "type = ${type}2"
  81   gdb_test "whatis ${name}.even.hi.lo.odd" "type = ${alttype}|${type}"
  82
  83   gdb_test "whatis ${name}.x" "type = ${alttype}|${type}"
  84   gdb_test "whatis ${name}.y" "type = ${alttype}|${type}"
  85   gdb_test "whatis ${name}.z" "type = ${alttype}|${type}"
  86   gdb_test "whatis ${name}.w" "type = ${alttype}|${type}"
  87   gdb_test "whatis ${name}.v" "Invalid OpenCL vector component accessor v"
  88
  89   gdb_test "whatis ${name}.xy" "type = ${type}2"
  90   gdb_test "whatis ${name}.xx" "type = ${type}2"
  91   gdb_test "whatis ${name}.wy" "type = ${type}2"
  92   gdb_test "whatis ${name}.zv" "Invalid OpenCL vector component accessor zv"
  93
  94   gdb_test "whatis ${name}.xyz" "type = ${type}3"
  95   gdb_test "whatis ${name}.yxy" "type = ${type}3"
  96   gdb_test "whatis ${name}.yzx" "type = ${type}3"
  97   gdb_test "whatis ${name}.yzv" "Invalid OpenCL vector component accessor yzv"
  98
  99   gdb_test "whatis ${name}.xywz" "type = ${type}4"
 100   gdb_test "whatis ${name}.zzyy" "type = ${type}4"
 101   gdb_test "whatis ${name}.wwww" "type = ${type}4"
 102   gdb_test "whatis ${name}.yxwv" "Invalid OpenCL vector component accessor yxwv"
 103   gdb_test "whatis ${name}.zyxwv" "Invalid OpenCL vector component accessor zyxwv"
 104
 105   gdb_test "whatis ${name}.xy.x" "type = ${alttype}|${type}"
 106   gdb_test "whatis ${name}.wzyx.yy" "type = ${type}2"
 107   gdb_test "whatis ${name}.wzyx.yx.x" "type = ${alttype}|${type}"
 108   gdb_test "whatis ${name}.xyzw.w" "type = ${alttype}|${type}"
 109   gdb_test "whatis ${name}.xy.z" "Invalid OpenCL vector component accessor z"
 110
 111   gdb_test "whatis ${name}.s0" "type = ${alttype}|${type}"
 112   gdb_test "whatis ${name}.s9" "type = ${alttype}|${type}"
 113   gdb_test "whatis ${name}.sa" "type = ${alttype}|${type}"
 114   gdb_test "whatis ${name}.sf" "type = ${alttype}|${type}"
 115   gdb_test "whatis ${name}.sF" "type = ${alttype}|${type}"
 116   gdb_test "whatis ${name}.sg" "Invalid OpenCL vector component accessor sg"
 117   gdb_test "whatis ${name}.sG" "Invalid OpenCL vector component accessor sG"
 118   gdb_test "whatis ${name}.Sg" "Invalid OpenCL vector component accessor Sg"
 119   gdb_test "whatis ${name}.SG" "Invalid OpenCL vector component accessor SG"
 120
 121   gdb_test "whatis ${name}.s01" "type = ${type}2"
 122   gdb_test "whatis ${name}.s00" "type = ${type}2"
 123   gdb_test "whatis ${name}.sF0" "type = ${type}2"
 124   gdb_test "whatis ${name}.S42" "type = ${type}2"
 125
 126   gdb_test "whatis ${name}.s567" "type = ${type}3"
 127   gdb_test "whatis ${name}.S333" "type = ${type}3"
 128   gdb_test "whatis ${name}.Sf0A" "type = ${type}3"
 129   gdb_test "whatis ${name}.SB1D" "type = ${type}3"
 130   gdb_test "whatis ${name}.s01g" "Invalid OpenCL vector component accessor s01g"
 131
 132   gdb_test "whatis ${name}.s9876" "type = ${type}4"
 133   gdb_test "whatis ${name}.sFFFF" "type = ${type}4"
 134   gdb_test "whatis ${name}.sCafe" "type = ${type}4"
 135   gdb_test "whatis ${name}.Sf001" "type = ${type}4"
 136   gdb_test "whatis ${name}.s1fg2" "Invalid OpenCL vector component accessor s1fg2"
 137   gdb_test "whatis ${name}.s012345" "Invalid OpenCL vector component accessor s012345"
 138
 139   gdb_test "whatis ${name}.s00000000" "type = ${type}8"
 140   gdb_test "whatis ${name}.s00224466" "type = ${type}8"
 141   gdb_test "whatis ${name}.sDEADBEEF" "type = ${type}8"
 142   gdb_test "whatis ${name}.Sa628c193" "type = ${type}8"
 143
 144   gdb_test "whatis ${name}.s876543210" "Invalid OpenCL vector component accessor s876543210"
 145   gdb_test "whatis ${name}.s0123456789abcde" "Invalid OpenCL vector component accessor s0123456789abcde"
 146
 147   gdb_test "whatis ${name}.s0123456789aBcDeF" "type = ${type}16"
 148   gdb_test "whatis ${name}.s0022446688AACCFF" "type = ${type}16"
 149   gdb_test "whatis ${name}.S0123456776543210" "type = ${type}16"
 150   gdb_test "whatis ${name}.sFEDCBA9876543210" "type = ${type}16"
 151
 152   gdb_test "whatis ${name}.sfedcba98.S0246" "type = ${type}4"
 153   gdb_test "whatis ${name}.sfedcba98.S0246.s13" "type = ${type}2"
 154   gdb_test "whatis ${name}.sfedcba98.S0246.s13.s0" "type = ${alttype}|${type}"
 155   gdb_test "whatis ${name}.s0123456789abcdef.s22" "type = ${type}2"
 156
 157   gdb_test "whatis ${name}.hi.s7654.wx" "type = ${type}2"
 158   gdb_test "whatis ${name}.s0123456789abcdef.even.lo" "type = ${type}4"
 159   gdb_test "whatis ${name}.odd.xyzw.s23" "type = ${type}2"
 160   gdb_test "whatis ${name}.xyzw.hi.odd" "type = ${alttype}|${type}"
 161
 162   gdb_test "ptype ${name}.lo" "type = ${type} \\\[8\\\]"
 163   gdb_test "ptype ${name}.hi" "type = ${type} \\\[8\\\]"
 164   gdb_test "ptype ${name}.even" "type = ${type} \\\[8\\\]"
 165   gdb_test "ptype ${name}.odd" "type = ${type} \\\[8\\\]"
 166
 167   gdb_test "ptype ${name}.hi.even" "type = ${type} \\\[4\\\]"
 168   gdb_test "ptype ${name}.odd.odd.lo" "type = ${type} \\\[2\\\]"
 169   gdb_test "ptype ${name}.even.hi.lo.odd" "type = ${alttype}|${type}"
 170
 171   gdb_test "ptype ${name}.x" "type = ${alttype}|${type}"
 172   gdb_test "ptype ${name}.y" "type = ${alttype}|${type}"
 173   gdb_test "ptype ${name}.z" "type = ${alttype}|${type}"
 174   gdb_test "ptype ${name}.w" "type = ${alttype}|${type}"
 175
 176   gdb_test "ptype ${name}.xy" "type = ${type} \\\[2\\\]"
 177   gdb_test "ptype ${name}.xx" "type = ${type} \\\[2\\\]"
 178   gdb_test "ptype ${name}.wy" "type = ${type} \\\[2\\\]"
 179
 180   gdb_test "ptype ${name}.xyz" "type = ${type} \\\[3\\\]"
 181   gdb_test "ptype ${name}.yxy" "type = ${type} \\\[3\\\]"
 182   gdb_test "ptype ${name}.yzx" "type = ${type} \\\[3\\\]"
 183
 184   gdb_test "ptype ${name}.xywz" "type = ${type} \\\[4\\\]"
 185   gdb_test "ptype ${name}.zzyy" "type = ${type} \\\[4\\\]"
 186   gdb_test "ptype ${name}.wwww" "type = ${type} \\\[4\\\]"
 187
 188   gdb_test "ptype ${name}.xy.x" "type = ${alttype}|${type}"
 189   gdb_test "ptype ${name}.wzyx.yy" "type = ${type} \\\[2\\\]"
 190   gdb_test "ptype ${name}.wzyx.yx.x" "type = ${alttype}|${type}"
 191   gdb_test "ptype ${name}.xyzw.w" "type = ${alttype}|${type}"
 192
 193   gdb_test "ptype ${name}.s0" "type = ${alttype}|${type}"
 194   gdb_test "ptype ${name}.s9" "type = ${alttype}|${type}"
 195   gdb_test "ptype ${name}.sa" "type = ${alttype}|${type}"
 196   gdb_test "ptype ${name}.sf" "type = ${alttype}|${type}"
 197   gdb_test "ptype ${name}.sF" "type = ${alttype}|${type}"
 198
 199   gdb_test "ptype ${name}.s01" "type = ${type} \\\[2\\\]"
 200   gdb_test "ptype ${name}.s00" "type = ${type} \\\[2\\\]"
 201   gdb_test "ptype ${name}.sF0" "type = ${type} \\\[2\\\]"
 202   gdb_test "ptype ${name}.S42" "type = ${type} \\\[2\\\]"
 203
 204   gdb_test "ptype ${name}.s567" "type = ${type} \\\[3\\\]"
 205   gdb_test "ptype ${name}.S333" "type = ${type} \\\[3\\\]"
 206   gdb_test "ptype ${name}.Sf0A" "type = ${type} \\\[3\\\]"
 207   gdb_test "ptype ${name}.SB1D" "type = ${type} \\\[3\\\]"
 208
 209   gdb_test "ptype ${name}.s9876" "type = ${type} \\\[4\\\]"
 210   gdb_test "ptype ${name}.sFFFF" "type = ${type} \\\[4\\\]"
 211   gdb_test "ptype ${name}.sCafe" "type = ${type} \\\[4\\\]"
 212   gdb_test "ptype ${name}.Sf001" "type = ${type} \\\[4\\\]"
 213
 214   gdb_test "ptype ${name}.s00000000" "type = ${type} \\\[8\\\]"
 215   gdb_test "ptype ${name}.s00224466" "type = ${type} \\\[8\\\]"
 216   gdb_test "ptype ${name}.sDEADBEEF" "type = ${type} \\\[8\\\]"
 217   gdb_test "ptype ${name}.Sa628c193" "type = ${type} \\\[8\\\]"
 218
 219   gdb_test "ptype ${name}.s0123456789aBcDeF" "type = ${type} \\\[16\\\]"
 220   gdb_test "ptype ${name}.s0022446688AACCFF" "type = ${type} \\\[16\\\]"
 221   gdb_test "ptype ${name}.S0123456776543210" "type = ${type} \\\[16\\\]"
 222   gdb_test "ptype ${name}.sFEDCBA9876543210" "type = ${type} \\\[16\\\]"
 223
 224   gdb_test "ptype ${name}.sfedcba98.S0246" "type = ${type} \\\[4\\\]"
 225   gdb_test "ptype ${name}.sfedcba98.S0246.s13" "type = ${type} \\\[2\\\]"
 226   gdb_test "ptype ${name}.sfedcba98.S0246.s13.s0" "type = ${alttype}|${type}"
 227   gdb_test "ptype ${name}.s0123456789abcdef.s22" "type = ${type} \\\[2\\\]"
 228
 229   gdb_test "ptype ${name}.hi.s7654.wx" "type = ${type} \\\[2\\\]"
 230   gdb_test "ptype ${name}.s0123456789abcdef.even.lo" "type = ${type} \\\[4\\\]"
 231   gdb_test "ptype ${name}.odd.xyzw.s23" "type = ${type} \\\[2\\\]"
 232   gdb_test "ptype ${name}.xyzw.hi.odd" "type = ${alttype}|${type}"
 233 }
 234
 235 proc check_sizeof { name size } {
 236   gdb_test "print sizeof (${name}.lo)" " = [expr $size * 8]"
 237   gdb_test "print sizeof (${name}.hi)" " = [expr $size * 8]"
 238   gdb_test "print sizeof (${name}.even)" " = [expr $size * 8]"
 239   gdb_test "print sizeof (${name}.odd)" " = [expr $size * 8]"
 240
 241   gdb_test "print sizeof (${name}.hi.even)" " = [expr $size * 4]"
 242   gdb_test "print sizeof (${name}.odd.odd.lo)" " = [expr $size * 2]"
 243   gdb_test "print sizeof (${name}.even.hi.lo.odd)" " = $size"
 244
 245   gdb_test "print sizeof (${name}.x)" " = $size"
 246   gdb_test "print sizeof (${name}.xy)" " = [expr $size * 2]"
 247   gdb_test "print sizeof (${name}.xyz)" " = [expr $size * 4]"
 248   gdb_test "print sizeof (${name}.xyzw)" " = [expr $size * 4]"
 249
 250   gdb_test "print sizeof (${name}.xy.x)" " = $size"
 251   gdb_test "print sizeof (${name}.wzyx.yy)" " = [expr $size * 2]"
 252   gdb_test "print sizeof (${name}.wzyx.yx.x)" " = $size"
 253   gdb_test "print sizeof (${name}.xyzw.w)" " = $size"
 254
 255   gdb_test "print sizeof (${name}.s0)" " = $size"
 256   gdb_test "print sizeof (${name}.s01)" " = [expr $size * 2]"
 257   gdb_test "print sizeof (${name}.s012)" " = [expr $size * 4]"
 258   gdb_test "print sizeof (${name}.s0123)" " = [expr $size * 4]"
 259   gdb_test "print sizeof (${name}.s01234567)" " = [expr $size * 8]"
 260   gdb_test "print sizeof (${name}.s0123456789abcdef)" " = [expr $size * 16]"
 261
 262   gdb_test "print sizeof (${name}.sfedcba98.S0246)" " = [expr $size * 4]"
 263   gdb_test "print sizeof (${name}.sfedcba98.S0246.s13)" " = [expr $size * 2]"
 264   gdb_test "print sizeof (${name}.sfedcba98.S0246.s13.s0)" " = $size"
 265   gdb_test "print sizeof (${name}.s0123456789abcdef.s22)" " = [expr $size * 2]"
 266
 267   gdb_test "print sizeof (${name}.hi.s7654.wx)" " = [expr $size * 2]"
 268   gdb_test "print sizeof (${name}.s0123456789abcdef.even.lo)" " = [expr $size * 4]"
 269   gdb_test "print sizeof (${name}.odd.xyzw.s23)" " = [expr $size * 2]"
 270   gdb_test "print sizeof (${name}.xyzw.hi.odd)" " = $size"
 271 }
 272
 273 # OpenCL vector component access
 274 proc check_access { name type } {
 275   gdb_test "print/d ${name}.lo" " = \\{0, 1, 2, 3, 4, 5, 6, 7\\}"
 276   gdb_test "print/d ${name}.hi" " = \\{8, 9, 10, 11, 12, 13, 14, 15\\}"
 277   gdb_test "print/d ${name}.even" " = \\{0, 2, 4, 6, 8, 10, 12, 14\\}"
 278   gdb_test "print/d ${name}.odd" " = \\{1, 3, 5, 7, 9, 11, 13, 15\\}"
 279
 280   gdb_test "print/d ${name}.hi.even" " = \\{8, 10, 12, 14\\}"
 281   gdb_test "print/d ${name}.odd.odd.lo" " = \\{3, 7\\}"
 282   gdb_test "print/d ${name}.even.hi.lo.odd" " = 10"
 283
 284   gdb_test "print/d ${name}.x" " = 0"
 285   gdb_test "print/d ${name}.y" " = 1"
 286   gdb_test "print/d ${name}.z" " = 2"
 287   gdb_test "print/d ${name}.w" " = 3"
 288
 289   gdb_test "print/d ${name}.xy" " = \\{0, 1\\}"
 290   gdb_test "print/d ${name}.xx" " = \\{0, 0\\}"
 291   gdb_test "print/d ${name}.wy" " = \\{3, 1\\}"
 292
 293   gdb_test "print/d ${name}.xyz" " = \\{0, 1, 2\\}"
 294   gdb_test "print/d ${name}.yxy" " = \\{1, 0, 1\\}"
 295   gdb_test "print/d ${name}.yzx" " = \\{1, 2, 0\\}"
 296
 297   gdb_test "print/d ${name}.xywz" " = \\{0, 1, 3, 2\\}"
 298   gdb_test "print/d ${name}.zzyy" " = \\{2, 2, 1, 1\\}"
 299   gdb_test "print/d ${name}.wwww" " = \\{3, 3, 3, 3\\}"
 300
 301   gdb_test "print/d ${name}.xy.x" " = 0"
 302   gdb_test "print/d ${name}.wzyx.yy" " = \\{2, 2\\}"
 303   gdb_test "print/d ${name}.wzyx.yx.x" " = 2"
 304   gdb_test "print/d ${name}.xyzw.w" " = 3"
 305
 306   for {set i 0} {$i < 16} {incr i} {
 307     gdb_test "print/d ${name}.s[format "%x" $i]" " = $i"
 308     gdb_test "print/d ${name}.S[format "%x" $i]" " = $i"
 309     if {$i > 9} {
 310       gdb_test "print/d ${name}.s[format "%X" $i]" " = $i"
 311       gdb_test "print/d ${name}.S[format "%X" $i]" " = $i"
 312     }
 313   }
 314
 315   gdb_test "print/d ${name}.s01" " = \\{0, 1\\}"
 316   gdb_test "print/d ${name}.s00" " = \\{0, 0\\}"
 317   gdb_test "print/d ${name}.sF0" " = \\{15, 0\\}"
 318   gdb_test "print/d ${name}.S42" " = \\{4, 2\\}"
 319
 320   gdb_test "print/d ${name}.s567" " = \\{5, 6, 7\\}"
 321   gdb_test "print/d ${name}.S333" " = \\{3, 3, 3\\}"
 322   gdb_test "print/d ${name}.Sf0A" " = \\{15, 0, 10\\}"
 323   gdb_test "print/d ${name}.SB1D" " = \\{11, 1, 13\\}"
 324
 325   gdb_test "print/d ${name}.s9876" " = \\{9, 8, 7, 6\\}"
 326   gdb_test "print/d ${name}.sFFFF" " = \\{15, 15, 15, 15\\}"
 327   gdb_test "print/d ${name}.sCafe" " = \\{12, 10, 15, 14\\}"
 328   gdb_test "print/d ${name}.Sf001" " = \\{15, 0, 0, 1\\}"
 329
 330   gdb_test "print/d ${name}.s00000000" " = \\{0, 0, 0, 0, 0, 0, 0, 0\\}"
 331   gdb_test "print/d ${name}.s00224466" " = \\{0, 0, 2, 2, 4, 4, 6, 6\\}"
 332   gdb_test "print/d ${name}.sDEADBEEF" " = \\{13, 14, 10, 13, 11, 14, 14, 15\\}"
 333   gdb_test "print/d ${name}.Sa628c193" " = \\{10, 6, 2, 8, 12, 1, 9, 3\\}"
 334
 335   gdb_test "print/d ${name}.s0123456789aBcDeF" " = \\{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15\\}"
 336   gdb_test "print/d ${name}.s0022446688AACCEE" " = \\{0, 0, 2, 2, 4, 4, 6, 6, 8, 8, 10, 10, 12, 12, 14, 14\\}"
 337   gdb_test "print/d ${name}.S0123456776543210" " = \\{0, 1, 2, 3, 4, 5, 6, 7, 7, 6, 5, 4, 3, 2, 1, 0\\}"
 338   gdb_test "print/d ${name}.sFEDCBA9876543210" " = \\{15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0\\}"
 339
 340   gdb_test "print/d ${name}.sfedcba98.S0246" " = \\{15, 13, 11, 9\\}"
 341   gdb_test "print/d ${name}.sfedcba98.S0246.s13" " = \\{13, 9\\}"
 342   gdb_test "print/d ${name}.sfedcba98.S0246.s13.s0" " = 13"
 343   gdb_test "print/d ${name}.s0123456789abcdef.s22" " = \\{2, 2\\}"
 344
 345   gdb_test "print/d ${name}.hi.s7654.wx" " = \\{12, 15\\}"
 346   gdb_test "print/d ${name}.s0123456789abcdef.even.lo" " = \\{0, 2, 4, 6\\}"
 347   gdb_test "print/d ${name}.odd.xyzw.s23" " = \\{5, 7\\}"
 348   gdb_test "print/d ${name}.xyzw.hi.odd" " = 3"
 349
 350   # lvalue tests
 351   for {set i 0} {$i < 16} {incr i} {
 352     gdb_test_no_output "set variable ${name}.s[format "%x" $i] = [expr 15 - $i]"
 353     gdb_test "print/d ${name}.s[format "%x" $i]" " = [expr 15 - $i]"
 354   }
 355   gdb_test "print/d ${name}" " = \\{15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0\\}"
 356
 357   gdb_test_no_output "set variable ${name}.s02468ace = ${name}.s13579bdf"
 358   gdb_test "print/d ${name}" " = \\{14, 14, 12, 12, 10, 10, 8, 8, 6, 6, 4, 4, 2, 2, 0, 0\\}"
 359
 360   gdb_test_no_output "set variable ${name}.wzyx = ${name}.even.odd"
 361   gdb_test "print/d ${name}" " = \\{0, 4, 8, 12, 10, 10, 8, 8, 6, 6, 4, 4, 2, 2, 0, 0\\}"
 362
 363   gdb_test_no_output "set variable ${name}.odd.lo = ${name}.hi.even"
 364   gdb_test "print/d ${name}" " = \\{0, 6, 8, 4, 10, 2, 8, 0, 6, 6, 4, 4, 2, 2, 0, 0\\}"
 365
 366   gdb_test_no_output "set variable ${name}.hi.hi.hi = ${name}.lo.s1623.lo"
 367   gdb_test "print/d ${name}" " = \\{0, 6, 8, 4, 10, 2, 8, 0, 6, 6, 4, 4, 2, 2, 6, 8\\}"
 368 }
 369
 370 proc do_check { name type alttype size } {
 371   check_basic ${name} ${alttype} ${size}
 372   check_type  ${name} ${type} ${alttype}
 373   check_sizeof ${name} ${size}
 374   check_access ${name} ${alttype}
 375 }
 376
 377 do_check "c16" "char" "char" 1
 378 do_check "uc16" "uchar" "unsigned char" 1
 379 do_check "s16" "short" "short" 2
 380 do_check "us16" "ushort" "unsigned short" 2
 381 do_check "i16" "int" "int" 4
 382 do_check "ui16" "uint" "unsigned int" 4
 383 do_check "l16" "long" "long" 8
 384 do_check "ul16" "ulong" "unsigned long" 8
 385 if { ${have_cl_khr_fp16} } {
 386   do_check "h16" "half" "half" 2
 387 }
 388 do_check "f16" "float" "float" 4
 389 if { ${have_cl_khr_fp64} } {
 390   do_check "d16" "double" "double" 8
 391 }
 392
 393 # Delete the OpenCL program source
 394 remote_file target delete ${clprogram}