diff options
Diffstat (limited to 'gcc/ada/a-nudira.adb')
| -rw-r--r-- | gcc/ada/a-nudira.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-nudira.adb b/gcc/ada/a-nudira.adb index d0c0a7b5004..9cdd8a149e1 100644 --- a/gcc/ada/a-nudira.adb +++ b/gcc/ada/a-nudira.adb @@ -261,7 +261,7 @@ package body Ada.Numerics.Discrete_Random is Outs.FP := Flt (Outs.P); Outs.Scl := (RstL - RstF + 1.0) / (Flt (Outs.P) * Flt (Outs.Q)); - -- Now do *some* sanity checks. + -- Now do *some* sanity checks if Outs.Q < 31 or else Outs.X1 not in 2 .. Outs.P - 1 |