Skip to content

Commit c6e4ffc

Browse files
authored
Update stdlib_math.fypp. Remove pure attribute.
1 parent 3258e58 commit c6e4ffc

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/stdlib_math.fypp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -474,14 +474,14 @@ contains
474474
#:endfor
475475

476476
#:for k1, t1 in REAL_KINDS_TYPES
477-
pure elemental function deg2rad_${k1}$(theta)result(result)
477+
elemental function deg2rad_${k1}$(theta)result(result)
478478
${t1}$, intent(in) :: theta
479479
${t1}$ :: result
480480
result = theta * PI_${k1}$ / 180.0_${k1}$
481481

482482
end function deg2rad_${k1}$
483483

484-
pure elemental function rad2deg_${k1}$(theta)result(result)
484+
elemental function rad2deg_${k1}$(theta)result(result)
485485
${t1}$, intent(in) :: theta
486486
${t1}$ :: result
487487
result = theta * 180.0_${k1}$ / PI_${k1}$

0 commit comments

Comments
 (0)