view tests/mini/bug20.d @ 1065:dc576c7e4b1e

Fix to make sure to create gen/ in build dir and unbreak build with older perl
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 08 Mar 2009 16:37:55 +0100
parents 1bb99290e03a
children
line wrap: on
line source

module bug20;
extern(C) int printf(char*, ...);

void func(void delegate() dg)
{
    dg();
}

void main()
{
    int i = 42;
    void delegate() dg = {
        i++;
    };
    printf("i = %d\n",i);
    func(dg);
    printf("i = %d\n",i);
    assert(i == 43);
}