// arrshp.oad - test [] syntax for creating arrays proc printArr(a) { var shp; "typeof(a) = ", ?? a, "\n"; shp = a.shape(); "shape(a) = ["; forall(shp[i]) { if (i > 0) " "; say(shp[i]); } "]\n"; } proc main() { var a; a = [1,2,3]; printArr(a); a = [[1,2,3,4],[5,6,7,8],[9,10,11,12]]; printArr(a); }