raw
mt_prng                 1  -- Tests for Ada implementation of the Mersenne Twister PRNG
mt_prng                 2  -- S.MG, 2018
mt_prng                 3  -- 
mt_prng                 4  -- Tests results against published PRNG numbers at
mt_prng                 5  -- www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html
mt_prng                 6 
mt_prng                 7  with "../libmt/mt.gpr";
mt_prng                 8 
mt_prng                 9 project Tests_MT is
mt_prng                10 
mt_prng                11   for Main use ("tests_mt.adb");
mt_prng                12   
mt_prng                13   type Mode_Type is ("debug", "release");
mt_prng                14   Mode : Mode_Type := external ("mode", "release");
mt_prng                15   
mt_prng                16   for Languages    use ("Ada");
mt_prng                17   for Source_Dirs  use (".");
mt_prng                18   for Object_Dir use "obj";
mt_prng                19   for Exec_Dir use ".";
mt_prng                20   
mt_prng                21   package Compiler is
mt_prng                22      case Mode is
mt_prng                23         when "debug" =>
mt_prng                24            for Switches ("Ada")
mt_prng                25              use ("-g");
mt_prng                26         when "release" =>
mt_prng                27            for Switches ("Ada")
mt_prng                28              use ("-O2", "-fdump-scos", "-gnata", "-fstack-check",
mt_prng                29                   "-gnatyd", "-gnatym",
mt_prng                30                   "-fdata-sections", "-ffunction-sections", "-gnatwr", "-gnatw.d");
mt_prng                31      end case;
mt_prng                32   end Compiler;
mt_prng                33     
mt_prng                34   package Binder is
mt_prng                35      case Mode is
mt_prng                36         when "debug" =>
mt_prng                37            for Switches ("Ada")
mt_prng                38              use ();
mt_prng                39         when "release" =>
mt_prng                40            for Switches ("Ada")
mt_prng                41              use ("-static");
mt_prng                42      end case;
mt_prng                43   end Binder;
mt_prng                44 end Tests_MT;