Fixes issue with rvs_normal where it lacks the elemental property

as noted in [fortran-lang#662 (comment)]
14NGiestas · Jun 27, 2022 · d3ed5bf · d3ed5bf
1 parent b9c9b91
commit d3ed5bf
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/stdlib_stats_distribution_normal.fypp b/src/stdlib_stats_distribution_normal.fypp
@@ -160,6 +160,7 @@ contains
 
 
     #:for k1, t1 in REAL_KINDS_TYPES
+    impure elemental &
     function rvs_norm_${t1[0]}$${k1}$(loc, scale) result(res)
     !
     ! Normal random variate (loc, scale)
@@ -178,6 +179,7 @@ contains
 
 
     #:for k1, t1 in CMPLX_KINDS_TYPES
+    impure elemental &
     function rvs_norm_${t1[0]}$${k1}$(loc, scale) result(res)
     !
     ! Normally distributed complex. The real part and imaginary part are       &