Mercurial > projects > dstress
view run/bug_cgcs_353_Q.d @ 1330:f3f715978184
Georg Wrede <georg@iki.fi>
2007-01-07
mail:45A120F5.1050108@iki.fi
author | thomask |
---|---|
date | Sat, 13 Jan 2007 10:33:49 +0000 |
parents | 80e1b85295b3 |
children |
line wrap: on
line source
// $HeadURL$ // $Date$ // $Author$ // @author@ MicroWizard <MicroWizard_member@pathlink.com> // @date@ 2005-04-27 // @uri@ news:d4or18$1th1$1@digitaldaemon.com module dstress.run.bug_cgcs_353_Q; creal[1] a; creal[1] b; creal[] concat() { return a~b; } int main(){ a[] = 0.5L + 1.0Li; b[] = 0.5L + 3.0Li; creal[] arr=concat(); if(arr.length != 2){ assert(0); } if(arr[0] != 0.5L + 1.0Li){ assert(0); } if(arr[1] != 0.5L + 3.0Li){ assert(0); } return 0; }