Index: libcfa/src/stdlib.hfa
===================================================================
--- libcfa/src/stdlib.hfa	(revision 31a5f41808c4a6aeca93398ffb30767b4c315708)
+++ libcfa/src/stdlib.hfa	(revision 58e97d9ab5836a22e8150d3307e96e09857157ca)
@@ -10,6 +10,6 @@
 // Created On       : Thu Jan 28 17:12:35 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Sat Feb 12 17:22:25 2022
-// Update Count     : 643
+// Last Modified On : Mon Apr 18 17:57:36 2022
+// Update Count     : 644
 //
 
@@ -209,26 +209,26 @@
 
 	forall( TT... | { T * alloc_internal$( void *, T *, size_t, size_t, S_fill(T), TT ); } ) {
-		T * alloc_internal$( void *       , T *        , size_t Align, size_t Dim, S_fill(T) Fill, T_resize Resize, TT rest) {
+		T * alloc_internal$( void *, T *, size_t Align, size_t Dim, S_fill(T) Fill, T_resize Resize, TT rest ) {
 	        return alloc_internal$( Resize, (T*)0p, Align, Dim, Fill, rest);
 		}
 
-		T * alloc_internal$( void *        , T *        , size_t Align, size_t Dim, S_fill(T) Fill, S_realloc(T) Realloc, TT rest) {
+		T * alloc_internal$( void *, T *, size_t Align, size_t Dim, S_fill(T) Fill, S_realloc(T) Realloc, TT rest ) {
 	        return alloc_internal$( (void*)0p, Realloc, Align, Dim, Fill, rest);
 		}
 
-		T * alloc_internal$( void * Resize, T * Realloc, size_t      , size_t Dim, S_fill(T) Fill, T_align Align, TT rest) {
+		T * alloc_internal$( void * Resize, T * Realloc, size_t, size_t Dim, S_fill(T) Fill, T_align Align, TT rest ) {
 	        return alloc_internal$( Resize, Realloc, Align, Dim, Fill, rest);
 		}
 
-		T * alloc_internal$( void * Resize, T * Realloc, size_t Align, size_t Dim, S_fill(T)     , S_fill(T) Fill, TT rest) {
-	        return alloc_internal$( Resize, Realloc, Align, Dim, Fill, rest);
+		T * alloc_internal$( void * Resize, T * Realloc, size_t Align, size_t Dim, S_fill(T), S_fill(T) Fill, TT rest ) {
+	        return alloc_internal$( Resize, Realloc, Align, Dim, Fill, rest );
 		}
 
 	    T * alloc( TT all ) {
-	    	return alloc_internal$( (void*)0p, (T*)0p, (_Alignof(T) > libAlign() ? _Alignof(T) : libAlign()), (size_t)1, (S_fill(T)){'0'}, all);
+	    	return alloc_internal$( (void*)0p, (T*)0p, (_Alignof(T) > libAlign() ? _Alignof(T) : libAlign()), (size_t)1, (S_fill(T)){'0'}, all );
 	    }
 
 	    T * alloc( size_t dim, TT all ) {
-	    	return alloc_internal$( (void*)0p, (T*)0p, (_Alignof(T) > libAlign() ? _Alignof(T) : libAlign()), dim, (S_fill(T)){'0'}, all);
+	    	return alloc_internal$( (void*)0p, (T*)0p, (_Alignof(T) > libAlign() ? _Alignof(T) : libAlign()), dim, (S_fill(T)){'0'}, all );
 	    }
 	} // distribution TT
Index: tests/alloc.cfa
===================================================================
--- tests/alloc.cfa	(revision 31a5f41808c4a6aeca93398ffb30767b4c315708)
+++ tests/alloc.cfa	(revision 58e97d9ab5836a22e8150d3307e96e09857157ca)
@@ -10,6 +10,6 @@
 // Created On       : Wed Feb  3 07:56:22 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Nov 12 10:02:18 2020
-// Update Count     : 432
+// Last Modified On : Mon Apr 18 17:13:52 2022
+// Update Count     : 433
 //
 
@@ -47,5 +47,5 @@
 	free( ip );
 
-	ip = alloc( fill`fill );								// CFA alloc, fill
+	ip = alloc( fill`fill );							// CFA alloc, fill
 	printf( "CFA alloc, fill %08x\n", *ip );
 	free( ip );
@@ -84,5 +84,5 @@
 	free( ip );
 
-	ip = alloc( 2 * dim, ((int)0xdeadbeef)`fill );				// CFA array alloc, fill
+	ip = alloc( 2 * dim, ((int)0xdeadbeef)`fill );		// CFA array alloc, fill
 	printf( "CFA array alloc, fill %#hhx\n", 0xdeadbeef );
 	for ( i; 2 * dim ) { printf( "%#x ", ip[i] ); }
@@ -90,5 +90,5 @@
 	// do not free
 
-	ip1 = alloc( 2 * dim, [ip, 2 * dim]`fill );				// CFA array alloc, fill
+	ip1 = alloc( 2 * dim, [ip, 2 * dim]`fill );			// CFA array alloc, fill
 	printf( "CFA array alloc, fill from array\n" );
 	for ( i; 2 * dim ) { printf( "%#x %#x, ", ip[i], ip1[i] ); }
@@ -117,5 +117,5 @@
 	printf( "\n" );
 
-	ip = alloc( dim, ip`realloc );								// CFA realloc array alloc
+	ip = alloc( dim, ip`realloc );						// CFA realloc array alloc
 	for ( i; dim ) { ip[i] = 0xdeadbeef; }
 	printf( "CFA realloc array alloc\n" );
@@ -124,5 +124,5 @@
 	// do not free
 
-	ip = alloc( 2 * dim, ip`realloc );							// CFA realloc array alloc
+	ip = alloc( 2 * dim, ip`realloc );					// CFA realloc array alloc
 	for ( i; dim ~ 2 * dim ) { ip[i] = 0x1010101; }		// fill upper part
 	printf( "CFA realloc array alloc\n" );
@@ -131,5 +131,5 @@
 	// do not free
 
-	ip = alloc( dim, ip`realloc );								// CFA realloc array alloc
+	ip = alloc( dim, ip`realloc );						// CFA realloc array alloc
 	printf( "CFA realloc array alloc\n" );
 	for ( i; dim ) { printf( "%#x ", ip[i] ); }
@@ -137,5 +137,5 @@
 	// do not free
 
-	ip = alloc( 3 * dim, ip`realloc, fill`fill );				// CFA realloc array alloc, fill
+	ip = alloc( 3 * dim, ip`realloc, fill`fill );		// CFA realloc array alloc, fill
 	printf( "CFA realloc array alloc, fill\n" );
 	for ( i; 3 * dim ) { printf( "%#x ", ip[i] ); }
@@ -143,5 +143,5 @@
 	// do not free
 
-	ip = alloc( dim, ip`realloc, fill`fill );					// CFA realloc array alloc, fill
+	ip = alloc( dim, ip`realloc, fill`fill );			// CFA realloc array alloc, fill
 	printf( "CFA realloc array alloc, fill\n" );
 	for ( i; dim ) { printf( "%#x ", ip[i] ); }
@@ -149,5 +149,5 @@
 	// do not free
 
-	ip = alloc( 3 * dim, ip`realloc, fill`fill );				// CFA realloc array alloc, fill
+	ip = alloc( 3 * dim, ip`realloc, fill`fill );		// CFA realloc array alloc, fill
 	printf( "CFA realloc array alloc, fill\n" );
 	for ( i; 3 * dim ) { printf( "%#x ", ip[i] ); }
@@ -155,5 +155,5 @@
 	// do not free
 #if 0 // FIX ME
-	ip = alloc( 5 * dim, ip`realloc, 5`fill );					// CFA realloc array alloc, 5
+	ip = alloc( 5 * dim, ip`realloc, 5`fill );			// CFA realloc array alloc, 5
 	printf( "CFA realloc array alloc, 5\n" );
 	for ( i; 5 * dim ) { printf( "%#x ", ip[i] ); }
@@ -161,5 +161,5 @@
 	// do not free
 
-	ip = alloc( dim, ip`realloc, 5`fill );						// CFA realloc array alloc, 5
+	ip = alloc( dim, ip`realloc, 5`fill );				// CFA realloc array alloc, 5
 	printf( "CFA realloc array alloc, 5\n" );
 	for ( i; dim ) { printf( "%#x ", ip[i] ); }
@@ -167,5 +167,5 @@
 	// do not free
 
-	ip = alloc( 5 * dim, ip`realloc, 5`fill );					// CFA realloc array alloc, 5
+	ip = alloc( 5 * dim, ip`realloc, 5`fill );			// CFA realloc array alloc, 5
 	printf( "CFA realloc array alloc, 5\n" );
 	for ( i; 5 * dim ) { printf( "%#x ", ip[i] ); }
@@ -210,12 +210,12 @@
 	int const_count, dest_count;
 	struct Struct { int x; double y; };
-	void  ?{}( Struct & a ) {					// construct
+	void  ?{}( Struct & a ) {							// construct
 		a.[ x, y ] = [ -1, -1.0 ];
 	}
-	void  ?{}( Struct & a, int x, double y ) {	// initialize
+	void  ?{}( Struct & a, int x, double y ) {			// initialize
 		a.[ x, y ] = [ x, y ];
 		const_count++;
 	}
-	void ^?{}( Struct & a ) {  dest_count++; }	// destruct
+	void ^?{}( Struct & a ) {  dest_count++; }			// destruct
 	Struct st, st1, sta[dim], sta1[dim], * stp, * stp1;
 
@@ -266,5 +266,5 @@
 	// do not free
 
-	stp = &(*alloc( stp`realloc, 4096`align )){ 42, 42.5 };		// CFA realign
+	stp = &(*alloc( stp`realloc, 4096`align )){ 42, 42.5 };	// CFA realign
 	assert( (uintptr_t)stp % 4096 == 0 );
 	printf( "CFA alloc_align %d %g\n", stp->x, stp->y );
@@ -304,5 +304,5 @@
 	free( stp1 );
 
-	stp = alloc( dim, stp`realloc, 4096`align );				// CFA aligned realloc array
+	stp = alloc( dim, stp`realloc, 4096`align );		// CFA aligned realloc array
 	assert( (uintptr_t)stp % 4096 == 0 );
 	for ( i; dim ) { stp[i] = (Struct){ 42, 42.5 }; }
@@ -340,15 +340,15 @@
 	const_count = dest_count = 0;
 	stp = new( 42, 42.5 );
-	assert( const_count == 1 && dest_count == 0 );						// assertion for testing
+	assert( const_count == 1 && dest_count == 0 );		// assertion for testing
 	stp1 = new( 42, 42.5 );
-	assert( const_count == 2 && dest_count == 0 );						// assertion for testing
+	assert( const_count == 2 && dest_count == 0 );		// assertion for testing
 
 	printf( "CFA new initialize\n%d %g %d %g\n", stp->x, stp->y, stp1->x, stp1->y );
 	delete( stp, stp1 );
-	assert( const_count == 2 && dest_count == 2 );						// assertion for testing
+	assert( const_count == 2 && dest_count == 2 );		// assertion for testing
 
 	// new, array types
 	stp = anew( dim, 42, 42.5 );
-	assert( const_count == 2 + dim && dest_count == 2 );				// assertion for testing
+	assert( const_count == 2 + dim && dest_count == 2 ); // assertion for testing
 	printf( "CFA array new initialize\n" );
 	for ( i; dim ) { printf( "%d %g, ", stp[i].x, stp[i].y ); }
@@ -356,9 +356,9 @@
 
 	stp1 = anew( dim, 42, 42.5 );
-	assert( const_count == 2 + 2 * dim && dest_count == 2 );			// assertion for testing
+	assert( const_count == 2 + 2 * dim && dest_count == 2 ); // assertion for testing
 	for ( i; dim ) { printf( "%d %g, ", stp1[i].x, stp1[i].y ); }
 	printf( "\n" );
 	adelete( stp, stp1 );
-	assert( const_count == 2 + 2 * dim && dest_count == 2 + 2 * dim);	// assertion for testing
+	assert( const_count == 2 + 2 * dim && dest_count == 2 + 2 * dim); // assertion for testing
 
 	// extras
@@ -373,5 +373,5 @@
 	printf( "CFA deep malloc %#x\n", *ip );
 
-	dp = alloc(5.0`fill); // just for testing multiple free
+	dp = alloc(5.0`fill);								// just for testing multiple free
 	assert(*dp == 5.0);
 	free( ip, dp, 0p );