tst.order.d revision 303975
190075Sobrien/*
290075Sobrien * CDDL HEADER START
3169689Skan *
4132718Skan * The contents of this file are subject to the terms of the
590075Sobrien * Common Development and Distribution License (the "License").
6132718Skan * You may not use this file except in compliance with the License.
7132718Skan *
8132718Skan * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9132718Skan * or http://www.opensolaris.org/os/licensing.
10132718Skan * See the License for the specific language governing permissions
11132718Skan * and limitations under the License.
12132718Skan *
13132718Skan * When distributing Covered Code, include this CDDL HEADER in each
14132718Skan * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15132718Skan * If applicable, add the following below this CDDL HEADER, with the
16132718Skan * fields enclosed by brackets "[]" replaced with your own identifying
17132718Skan * information: Portions Copyright [yyyy] [name of copyright owner]
18169689Skan *
19169689Skan * CDDL HEADER END
20132718Skan */
21132718Skan
22132718Skan/*
23132718Skan * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
24132718Skan * Use is subject to license terms.
25132718Skan */
26132718Skan
2790075Sobrien#pragma ident	"%Z%%M%	%I%	%E% SMI"
28132718Skan
29132718Skan#pragma D option quiet
3090075Sobrien
3190075SobrienBEGIN
3290075Sobrien{
3390075Sobrien	@[8] = sum(1);
3496263Sobrien	@[6] = sum(1);
3590075Sobrien	@[7] = sum(1);
36132718Skan	@[5] = sum(1);
37132718Skan	@[3] = sum(1);
38132718Skan	@[0] = sum(1);
39132718Skan	@[9] = sum(1);
40132718Skan
41132718Skan	@tour["Ghent"] = sum(1);
42132718Skan	@tour["Berlin"] = sum(1);
43132718Skan	@tour["London"] = sum(1);
44169689Skan	@tour["Dublin"] = sum(1);
45169689Skan	@tour["Shanghai"] = sum(1);
46169689Skan	@tour["Zurich"] = sum(1);
47169689Skan	@tour["Regina"] = sum(1);
48169689Skan	@tour["Winnipeg"] = sum(1);
49169689Skan	@tour["Edmonton"] = sum(1);
50169689Skan	@tour["Calgary"] = sum(1);
51169689Skan
5290075Sobrien	@ate[8, "Rice"] = sum(1);
5390075Sobrien	@ate[8, "Oatmeal"] = sum(1);
5490075Sobrien	@ate[8, "Barley"] = sum(1);
5596263Sobrien	@ate[8, "Carrots"] = sum(1);
5690075Sobrien	@ate[8, "Sweet potato"] = sum(1);
5790075Sobrien	@ate[8, "Asparagus"] = sum(1);
58132718Skan	@ate[8, "Squash"] = sum(1);
59132718Skan
60117395Skan	@chars['a'] = sum(1);
61117395Skan	@chars['s'] = sum(1);
62117395Skan	@chars['d'] = sum(1);
63117395Skan	@chars['f'] = sum(1);
64117395Skan
65169689Skan	printa("%d\n", @);
6690075Sobrien	printf("\n");
6790075Sobrien
68132718Skan	printa("%s\n", @tour);
69132718Skan	printf("\n");
70132718Skan
7190075Sobrien	printa("%d %s\n", @ate);
7290075Sobrien	printf("\n");
7390075Sobrien
74132718Skan	printa("%c\n", @chars);
75132718Skan	printf("\n");
76132718Skan
77132718Skan	exit(0);
78132718Skan}
79132718Skan