Mercurial > projects > dstress
view run/bug_cgcs_353_O.d @ 1620:01e1c391b52d
Fix #6.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Sat, 07 Nov 2009 19:00:12 +0100 |
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; }