view run/f/foreach_36_D.d @ 1630:d0efa3ae5522 default tip

run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
author David Nadlinger <code@klickverbot.at>
date Sat, 23 Apr 2011 22:57:32 +0200
parents daef239f37cf
children
line wrap: on
line source

// $HeadURL$
// $Date$
// $Author$

// @author@	Serg Kovrov <reg4dyh@inbox.lv>
// @date@	2006-07-30	
// @uri@	http://d.puremagic.com/issues/show_bug.cgi?id=272
// @desc@	[Issue 272] foreach inside anonymous function crashes dmd.exe

module destress.run.f.foreach_36_D;

alias void function(char[]) FN;

int status;

int main(){
	FN fn = function(char[] array){
		int count;
		
		foreach (size_t index, char element; array){
			if(index != 0){
				assert(0);
			}
			if(element != 'a'){
				assert(0);
			}
			status++;
		}
	};

	char[] array = "a";
	status = 0;

	fn(array);

	if(status != 1){
		assert(0);
	}

	return 0;
}