-
+ 43238CFD62FD85024A79B76484232E4D3533D454C0CBB629B581CD4832BBE191C09F0593E52FE0C065C94696B162918FB463FF9445B849417FDEC36D6F8889E1udp/testmt/tests_mt.gpr(0 . 0)(1 . 44)
595 -- Tests for Ada implementation of the Mersenne Twister PRNG
596 -- S.MG, 2018
597 --
598 -- Tests results against published PRNG numbers at
599 -- www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html
600
601 with "../libmt/mt.gpr";
602
603 project Tests_MT is
604
605 for Main use ("tests_mt.adb");
606
607 type Mode_Type is ("debug", "release");
608 Mode : Mode_Type := external ("mode", "release");
609
610 for Languages use ("Ada");
611 for Source_Dirs use (".");
612 for Object_Dir use "obj";
613 for Exec_Dir use ".";
614
615 package Compiler is
616 case Mode is
617 when "debug" =>
618 for Switches ("Ada")
619 use ("-g");
620 when "release" =>
621 for Switches ("Ada")
622 use ("-O2", "-fdump-scos", "-gnata", "-fstack-check",
623 "-gnatyd", "-gnatym",
624 "-fdata-sections", "-ffunction-sections", "-gnatwr", "-gnatw.d");
625 end case;
626 end Compiler;
627
628 package Binder is
629 case Mode is
630 when "debug" =>
631 for Switches ("Ada")
632 use ();
633 when "release" =>
634 for Switches ("Ada")
635 use ("-static");
636 end case;
637 end Binder;
638 end Tests_MT;