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 module dstress.run.bug_cgcs_353_O;
|
|
10
|
|
11 real[1] a;
|
|
12 real[1] b;
|
|
13
|
|
14 real[] concat() {
|
|
15 return a~b;
|
|
16 }
|
|
17
|
|
18 int main(){
|
958
|
19 a[] = 1.0L;
|
|
20 b[] = 3.0L;
|
492
|
21
|
|
22 real[] arr=concat();
|
|
23
|
958
|
24 if(arr.length != 2){
|
|
25 assert(0);
|
|
26 }
|
|
27
|
|
28 if(arr[0] != 1.0L){
|
|
29 assert(0);
|
|
30 }
|
|
31
|
|
32 if(arr[1] != 3.0L){
|
|
33 assert(0);
|
|
34 }
|
492
|
35
|
|
36 return 0;
|
|
37 }
|
|
38
|