492
|
1 // $HeadURL$
|
|
2 // $Date$
|
|
3 // $Author$
|
|
4
|
|
5 // @author@ MicroWizard <MicroWizard_member@pathlink.com>
|
|
6 // @date@ 2005-04-27
|
|
7 // @uri@ news:d4or18$1th1$1@digitaldaemon.com
|
|
8
|
|
9
|
|
10 module dstress.run.bug_cgcs_353_M;
|
|
11
|
|
12 idouble[1] a;
|
|
13 idouble[1] b;
|
|
14
|
|
15 idouble[] concat() {
|
|
16 return a~b;
|
|
17 }
|
|
18
|
|
19 int main(){
|
|
20 a[]=1.0i;
|
|
21 b[]=3.0i;
|
|
22
|
|
23 idouble[] arr=concat();
|
|
24
|
1559
|
25 if(2 != arr.length){
|
|
26 assert(0);
|
|
27 }
|
|
28 if(1.0i != arr[0]){
|
|
29 assert(0);
|
|
30 }
|
|
31 if(3.0i != arr[1]){
|
|
32 assert(0);
|
|
33 }
|
492
|
34
|
|
35 return 0;
|
|
36 }
|
|
37
|