Index: tests/.expect/nested_function.txt
===================================================================
--- tests/.expect/nested_function.txt	(revision 03656d15c8e3697d125787c0e6a2c0ae3f48fc7a)
+++ tests/.expect/nested_function.txt	(revision 03656d15c8e3697d125787c0e6a2c0ae3f48fc7a)
@@ -0,0 +1,5 @@
+nested_function.cfa: In function '_X1fFi___2':
+nested_function.cfa:44:5: error: no return statement in function returning non-void [-Werror=return-type]
+nested_function.cfa: In function '_X20get_exception_vtableFS22ThreadCancelled_vtable_S1T__PS15ThreadCancelled_S1T___1':
+nested_function.cfa:25:36: warning: unused variable '_retvalue' [-Wunused-variable]
+cc1: some warnings being treated as errors
Index: tests/nested_function.cfa
===================================================================
--- tests/nested_function.cfa	(revision 03656d15c8e3697d125787c0e6a2c0ae3f48fc7a)
+++ tests/nested_function.cfa	(revision 03656d15c8e3697d125787c0e6a2c0ae3f48fc7a)
@@ -0,0 +1,49 @@
+//
+// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
+//
+// The contents of this file are covered under the licence agreement in the
+// file "LICENCE" distributed with Cforall.
+//
+// nested_function.cfa -- Test nested functions run on user-thread stacks.
+//
+// Author           : Peter A. Buhr
+// Created On       : Mon May 23 22:21:30 2022
+// Last Modified By : Peter A. Buhr
+// Last Modified On : Mon May 23 22:24:28 2022
+// Update Count     : 2
+// 
+
+#include <thread.hfa>
+#include <fstream.hfa>
+#include <stdlib.hfa>
+
+thread T {};
+
+enum { VALUES = 10_000 };
+int values[VALUES];
+
+void main( T & t ) {
+	int f() {
+		int i = 0;
+		void h( void ) {								// nest routine
+			int j = i;									// non-local reference
+			void g( void ) {							// nest routine
+				i += 1;									// non-local reference
+				j += 1;									// non-local reference
+				if ( i < 3 ) h();
+			} // g
+			if ( prng( 6 ) == 0 ) g();					// prevent compiler inlining
+			else h();
+			i += 1;
+			sout | "j" | j | bsearchl( j, values, VALUES ); // has internal nested compare routine
+		} // h
+		h();
+		sout | "i" | i | bsearchl( i, values, VALUES ); // has internal nested compare routine
+	} // f
+	f();
+}
+int main() {
+	set_seed( 1003 );
+	for ( i; VALUES ) values[i] = i;
+	T t[5];
+}