Files
harbour-core/harbour/tests/arrindex.prg
1999-10-04 18:46:41 +00:00

20 lines
168 B
Plaintext

//
// $Id$
//
Function Main
local a, b , c
a := { {,} }
a [ 1, 2 ] := [Hello]
c := { 1 }
b := a [ c [1] ] [ val( [2] ) ]
QOut( b )
return NIL