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 // __DSTRESS_DFLAGS__ -O
|
|
10
|
|
11 module dstress.run.bug_cod2_4211_P;
|
|
12
|
|
13 ireal[1] a;
|
|
14 ireal[1] b;
|
|
15
|
|
16 ireal[] concat() {
|
|
17 return a~b;
|
|
18 }
|
|
19
|
|
20 int main(){
|
|
21 a[]=1.0li;
|
|
22 b[]=3.0li;
|
|
23
|
|
24 ireal[] arr=concat();
|
|
25
|
|
26 assert(arr.length==2);
|
|
27 assert(arr[0]==1.0li);
|
|
28 assert(arr[1]==3.0li);
|
|
29
|
|
30 return 0;
|
|
31 }
|
|
32
|