Index: tests/PRNG.cfa
===================================================================
--- tests/PRNG.cfa	(revision 20cf96d2ae36584a53804df284c094c30c96763b)
+++ tests/PRNG.cfa	(revision 8fb740249fbce2fa4fbb7d260002c72b55b18605)
@@ -8,6 +8,6 @@
 // Created On       : Wed Dec 29 09:38:12 2021
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Tue Nov 22 22:51:12 2022
-// Update Count     : 381
+// Last Modified On : Wed Dec 21 20:39:59 2022
+// Update Count     : 406
 // 
 
@@ -60,5 +60,5 @@
 
 
-unsigned int seed = 1009;
+size_t seed = 1009;
 
 thread T1 {};
@@ -116,7 +116,11 @@
 } // dummy
 
+
 int main() {
 	// causes leaked storage message
-//	setlocale( LC_NUMERIC, getenv( "LANG" ) );			// print digit separator
+	// setlocale( LC_NUMERIC, getenv( "LANG" ) );			// print digit separator
+	// locale_t loc = newlocale( LC_NUMERIC_MASK, getenv( "LANG" ), (locale_t)0p );
+	// if ( loc == (locale_t)0p ) abort( "newlocale" );
+	// uselocale( loc );
 
 	enum { TASKS = 4 };
@@ -130,9 +134,9 @@
 
 	sout | sepDisable;
-	sout | wd(13, "rand()" ) | wd(10, "rand(5)") | wd(13, "rand(0,5)" );
-	for ( 20 ) {
-		sout | wd(13, rand()) | nonl;
-		sout | wd(10, rand() % 5) | nonl;
-		sout | wd(13, rand() % (5 - 0 + 1) + 0);
+	sout | wd(26, "rand()" ) | wd(12, "rand(5)") | wd(12, "rand(0,5)" );
+	for ( 20 ) {
+		sout | wd(26, rand()) | nonl;
+		sout | wd(12, rand() % 5) | nonl;
+		sout | wd(12, rand() % (5 - 0 + 1) + 0);
 	} // for
 	sout | sepEnable;
@@ -168,9 +172,9 @@
 
 	sout | sepDisable;
-	sout | nl | wd(13, "PRNG()" ) | wd(10, "PRNG(5)") | wd(13, "PRNG(0,5)" );
-	for ( 20 ) {
-		sout | wd(13, prng( prng )) | nonl;				// cascading => side-effect functions called in arbitary order
-		sout | wd(10, prng( prng, 5 )) | nonl;
-		sout | wd(13, prng( prng, 0, 5 ));
+	sout | nl | wd(26, "PRNG()" ) | wd(12, "PRNG(5)") | wd(12, "PRNG(0,5)" );
+	for ( 20 ) {
+		sout | wd(26, prng( prng )) | nonl;				// cascading => side-effect functions called in arbitary order
+		sout | wd(12, prng( prng, 5 )) | nonl;
+		sout | wd(12, prng( prng, 0, 5 ));
 	} // for
 	sout | sepEnable;
@@ -203,9 +207,9 @@
 
 	sout | sepDisable;
-	sout | nl | wd(13, "prng()" ) | wd(10, "prng(5)") | wd(13, "prng(0,5)" );
-	for ( 20 ) {
-		sout | wd(13, prng()) | nonl;					// cascading => side-effect functions called in arbitary order
-		sout | wd(10, prng( 5 )) | nonl;
-		sout | wd(13, prng( 0, 5 ));
+	sout | nl | wd(26, "prng()" ) | wd(12, "prng(5)") | wd(12, "prng(0,5)" );
+	for ( 20 ) {
+		sout | wd(26, prng()) | nonl;					// cascading => side-effect functions called in arbitary order
+		sout | wd(12, prng( 5 )) | nonl;
+		sout | wd(12, prng( 0, 5 ));
 	} // for
 	sout | sepEnable;
@@ -239,9 +243,9 @@
 
 	sout | sepDisable;
-	sout | nl | wd(13, "prng(t)" ) | wd(10, "prng(t,5)") | wd(13, "prng(t,0,5)" );
-	for ( 20 ) {
-		sout | wd(13, prng( th )) | nonl;				// cascading => side-effect functions called in arbitary order
-		sout | wd(10, prng( th, 5 )) | nonl;
-		sout | wd(13, prng( th, 0, 5 ));
+	sout | nl | wd(26, "prng(t)" ) | wd(12, "prng(t,5)") | wd(12, "prng(t,0,5)" );
+	for ( 20 ) {
+		sout | wd(26, prng( th )) | nonl;				// cascading => side-effect functions called in arbitary order
+		sout | wd(12, prng( th, 5 )) | nonl;
+		sout | wd(12, prng( th, 0, 5 ));
 	} // for
 	sout | sepEnable;
@@ -266,4 +270,5 @@
 #endif // 0
 //	malloc_stats();
+	// freelocale( loc );
 } // main