Fixes issue with rvs_normal where it lacks the elemental property

14NGiestas · web-flow · commit d3ed5bf7503b · 2022-06-27T15:05:04.000-03:00
as noted in [#662 (comment)]
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       &

Original file line number	Diff line number	Diff line change
`@@ -160,6 +160,7 @@ contains`
`160`	`160`
`161`	`161`
`162`	`162`	`#:for k1, t1 in REAL_KINDS_TYPES`
	`163`	`+ impure elemental &`
`163`	`164`	`function rvs_norm_${t1[0]}$${k1}$(loc, scale) result(res)`
`164`	`165`	`!`
`165`	`166`	`! Normal random variate (loc, scale)`
`@@ -178,6 +179,7 @@ contains`
`178`	`179`
`179`	`180`
`180`	`181`	`#:for k1, t1 in CMPLX_KINDS_TYPES`
	`182`	`+ impure elemental &`
`181`	`183`	`function rvs_norm_${t1[0]}$${k1}$(loc, scale) result(res)`
`182`	`184`	`!`
`183`	`185`	`! Normally distributed complex. The real part and imaginary part are &`