@@ -70,35 +70,35 @@ module stdlib_ascii
70
70
71
71
!> Returns a new character sequence which is the lower case
72
72
!> version of the input character sequence
73
- !> This method is pure and returns a character sequence
73
+ !> This method is elemental and returns a character sequence
74
74
interface to_lower
75
75
module procedure :: to_lower
76
76
end interface to_lower
77
77
78
78
!> Returns a new character sequence which is the upper case
79
79
!> version of the input character sequence
80
- !> This method is pure and returns a character sequence
80
+ !> This method is elemental and returns a character sequence
81
81
interface to_upper
82
82
module procedure :: to_upper
83
83
end interface to_upper
84
84
85
85
!> Returns a new character sequence which is the title case
86
86
!> version of the input character sequence
87
- !> This method is pure and returns a character sequence
87
+ !> This method is elemental and returns a character sequence
88
88
interface to_title
89
89
module procedure :: to_title
90
90
end interface to_title
91
91
92
92
!> Returns a new character sequence which is the sentence case
93
93
!> version of the input character sequence
94
- !> This method is pure and returns a character sequence
94
+ !> This method is elemental and returns a character sequence
95
95
interface to_sentence
96
96
module procedure :: to_sentence
97
97
end interface to_sentence
98
98
99
99
!> Returns a new character sequence which is reverse of
100
100
!> the input charater sequence
101
- !> This method is pure and returns a character sequence
101
+ !> This method is elemental and returns a character sequence
102
102
interface reverse
103
103
module procedure :: reverse
104
104
end interface reverse
@@ -220,7 +220,7 @@ contains
220
220
221
221
!> Returns the corresponding lowercase letter, if `c` is an uppercase
222
222
!> ASCII character, otherwise `c` itself.
223
- pure function char_to_lower(c) result(t)
223
+ elemental function char_to_lower(c) result(t)
224
224
character(len=1), intent(in) :: c !! A character.
225
225
character(len=1) :: t
226
226
integer, parameter :: wp= iachar('a')-iachar('A'), BA=iachar('A'), BZ=iachar('Z')
@@ -234,7 +234,7 @@ contains
234
234
235
235
!> Returns the corresponding uppercase letter, if `c` is a lowercase
236
236
!> ASCII character, otherwise `c` itself.
237
- pure function char_to_upper(c) result(t)
237
+ elemental function char_to_upper(c) result(t)
238
238
character(len=1), intent(in) :: c !! A character.
239
239
character(len=1) :: t
240
240
integer, parameter :: wp= iachar('a')-iachar('A'), la=iachar('a'), lz=iachar('z')
@@ -250,7 +250,7 @@ contains
250
250
!> ([Specification](../page/specs/stdlib_ascii.html#to_lower))
251
251
!>
252
252
!> Version: experimental
253
- pure function to_lower(string) result(lower_string)
253
+ elemental function to_lower(string) result(lower_string)
254
254
character(len=*), intent(in) :: string
255
255
character(len=len(string)) :: lower_string
256
256
integer :: i
@@ -265,7 +265,7 @@ contains
265
265
!> ([Specification](../page/specs/stdlib_ascii.html#to_upper))
266
266
!>
267
267
!> Version: experimental
268
- pure function to_upper(string) result(upper_string)
268
+ elemental function to_upper(string) result(upper_string)
269
269
character(len=*), intent(in) :: string
270
270
character(len=len(string)) :: upper_string
271
271
integer :: i
@@ -280,7 +280,7 @@ contains
280
280
!> ([Specification](../page/specs/stdlib_ascii.html#to_title))
281
281
!>
282
282
!> Version: experimental
283
- pure function to_title(string) result(title_string)
283
+ elemental function to_title(string) result(title_string)
284
284
character(len=*), intent(in) :: string
285
285
character(len=len(string)) :: title_string
286
286
integer :: i
@@ -307,7 +307,7 @@ contains
307
307
!> ([Specification](../page/specs/stdlib_ascii.html#to_sentence))
308
308
!>
309
309
!> Version: experimental
310
- pure function to_sentence(string) result(sentence_string)
310
+ elemental function to_sentence(string) result(sentence_string)
311
311
character(len=*), intent(in) :: string
312
312
character(len=len(string)) :: sentence_string
313
313
integer :: i, n
@@ -333,7 +333,7 @@ contains
333
333
!> ([Specification](../page/specs/stdlib_ascii.html#reverse))
334
334
!>
335
335
!> Version: experimental
336
- pure function reverse(string) result(reverse_string)
336
+ elemental function reverse(string) result(reverse_string)
337
337
character(len=*), intent(in) :: string
338
338
character(len=len(string)) :: reverse_string
339
339
integer :: i, n
0 commit comments