Changes in tests/PRNG.cfa [20cf96d:ae7a085c]

File:

• tests/PRNG.cfa (modified) (8 diffs)

tests/PRNG.cfa

@@ -8 +8 @@
 // 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 +60 @@
 
 
-unsigned int seed = 1009;
+size_t seed = 1009;
 
 thread T1 {};
@@ -116 +116 @@
 } // 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 +134 @@
 
         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 +172 @@
 
         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 +207 @@
 
         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 +243 @@
 
         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 +270 @@
 #endif // 0
 //      malloc_stats();
+        // freelocale( loc );
 } // main