Mercurial > projects > ldc
view tests/mini/foreach10.d @ 1198:f48500f9350c
Ported script to Tango
author | larsivi@larsivi-gutsy |
---|---|
date | Tue, 07 Apr 2009 18:37:19 +0200 |
parents | 8baf611f0009 |
children |
line wrap: on
line source
module foreach10; extern(C) int printf(char*, ...); void main() { char* last = null; printf("The addresses should increment:\n"); foreach (ref c; "bar") { auto a = { printf("%x '%c'\n", c, c); return &c; }; auto nw = a(); printf("ptr = %p\n", nw); if (last != null) assert(nw == last+1); last = nw; } }