Mercurial > projects > dstress
view run/bug_cgcs_353_O.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_O; real[1] a; real[1] b; real[] concat() { return a~b; } int main(){ a[] = 1.0L; b[] = 3.0L; real[] arr=concat(); if(arr.length != 2){ assert(0); } if(arr[0] != 1.0L){ assert(0); } if(arr[1] != 3.0L){ assert(0); } return 0; }