Skip to content

Commit e06e322

Browse files
committed
add "elemental" and/or "pure" attributes where possible
1 parent fefbaf4 commit e06e322

File tree

1 file changed

+9
-9
lines changed

1 file changed

+9
-9
lines changed

src/stdlib_experimental_optval.f90

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -34,7 +34,7 @@ module stdlib_experimental_optval
3434
contains
3535

3636

37-
function optval_sp(x, default) result(y)
37+
pure elemental function optval_sp(x, default) result(y)
3838
real(sp), intent(in), optional :: x
3939
real(sp), intent(in) :: default
4040
real(sp) :: y
@@ -47,7 +47,7 @@ function optval_sp(x, default) result(y)
4747
end function optval_sp
4848

4949

50-
function optval_dp(x, default) result(y)
50+
pure elemental function optval_dp(x, default) result(y)
5151
real(dp), intent(in), optional :: x
5252
real(dp), intent(in) :: default
5353
real(dp) :: y
@@ -60,7 +60,7 @@ function optval_dp(x, default) result(y)
6060
end function optval_dp
6161

6262

63-
function optval_qp(x, default) result(y)
63+
pure elemental function optval_qp(x, default) result(y)
6464
real(qp), intent(in), optional :: x
6565
real(qp), intent(in) :: default
6666
real(qp) :: y
@@ -73,7 +73,7 @@ function optval_qp(x, default) result(y)
7373
end function optval_qp
7474

7575

76-
function optval_int8(x, default) result(y)
76+
pure elemental function optval_int8(x, default) result(y)
7777
integer(int8), intent(in), optional :: x
7878
integer(int8), intent(in) :: default
7979
integer(int8) :: y
@@ -86,7 +86,7 @@ function optval_int8(x, default) result(y)
8686
end function optval_int8
8787

8888

89-
function optval_int16(x, default) result(y)
89+
pure elemental function optval_int16(x, default) result(y)
9090
integer(int16), intent(in), optional :: x
9191
integer(int16), intent(in) :: default
9292
integer(int16) :: y
@@ -99,7 +99,7 @@ function optval_int16(x, default) result(y)
9999
end function optval_int16
100100

101101

102-
function optval_int32(x, default) result(y)
102+
pure elemental function optval_int32(x, default) result(y)
103103
integer(int32), intent(in), optional :: x
104104
integer(int32), intent(in) :: default
105105
integer(int32) :: y
@@ -112,7 +112,7 @@ function optval_int32(x, default) result(y)
112112
end function optval_int32
113113

114114

115-
function optval_int64(x, default) result(y)
115+
pure elemental function optval_int64(x, default) result(y)
116116
integer(int64), intent(in), optional :: x
117117
integer(int64), intent(in) :: default
118118
integer(int64) :: y
@@ -125,7 +125,7 @@ function optval_int64(x, default) result(y)
125125
end function optval_int64
126126

127127

128-
function optval_logical(x, default) result(y)
128+
pure elemental function optval_logical(x, default) result(y)
129129
logical, intent(in), optional :: x
130130
logical, intent(in) :: default
131131
logical :: y
@@ -138,7 +138,7 @@ function optval_logical(x, default) result(y)
138138
end function optval_logical
139139

140140

141-
function optval_character(x, default) result(y)
141+
pure function optval_character(x, default) result(y)
142142
character(len=*), intent(in), optional :: x
143143
character(len=*), intent(in) :: default
144144
character(len=:), allocatable :: y

0 commit comments

Comments
 (0)