Incorrect result from recursive function with a fold on concat

Bugzilla Link	484
Created on	Apr 21, 2009 11:36
Resolution	FIXED
Resolved on	Apr 24, 2009 21:53
Version	1.00beta
OS	MacOS X
Architecture	PC
Attachments	bughunt.sac

Extended Description

Created an attachment (id=515)
Source code to reproduce the bug
sac2c Version: 16036
Run:
sac2c bughunt.sac && ./a.out ; echo $? 
to see the bug. The return value is shape( result)[0] which should be 2 but is 1. Add -noopt and the bug goes away. Could this be related to bug 208?