promote public functions to elemental

Author: milancurcic

doc/specs/stdlib_ascii.md

@@ -38,7 +38,7 @@ Converts input character variable to all lowercase.
 
 #### Class
 
-Pure function.
+Elemental function.
 
 #### Argument
 
@@ -74,7 +74,7 @@ Converts input character variable to all uppercase.
 
 #### Class
 
-Pure function.
+Elemental function.
 
 #### Argument
 
@@ -112,7 +112,7 @@ The rest of the character sequence is transformed to lowercase.
 
 #### Class
 
-Pure function.
+Elemental function.
 
 #### Argument
 
@@ -150,7 +150,7 @@ Reverses the order of all characters in the input character type.
 
 #### Class
 
-Pure function.
+Elemental function.
 
 #### Argument
 

src/stdlib_ascii.f90

@@ -213,7 +213,7 @@ end function char_to_upper
     !> Convert character variable to lower case
     !>
     !> Version: experimental
-    pure function to_lower(string) result(lower_string)
+    elemental function to_lower(string) result(lower_string)
         character(len=*), intent(in) :: string
         character(len=len(string)) :: lower_string
         integer :: i
@@ -227,7 +227,7 @@ end function to_lower
     !> Convert character variable to upper case
     !>
     !> Version: experimental
-    pure function to_upper(string) result(upper_string)
+    elemental function to_upper(string) result(upper_string)
         character(len=*), intent(in) :: string
         character(len=len(string)) :: upper_string
         integer :: i
@@ -241,7 +241,7 @@ end function to_upper
     !> Convert character variable to title case
     !>
     !> Version: experimental
-    pure function to_title(string) result(title_string)
+    elemental function to_title(string) result(title_string)
         character(len=*), intent(in) :: string
         character(len=len(string)) :: title_string
         integer :: i, n
@@ -266,7 +266,7 @@ end function to_title
     !> Reverse the character order in the input character variable
     !>
     !> Version: experimental
-    pure function reverse(string) result(reverse_string)
+    elemental function reverse(string) result(reverse_string)
         character(len=*), intent(in) :: string
         character(len=len(string)) :: reverse_string
         integer :: i, n

src/tests/ascii/test_ascii.f90

@@ -559,6 +559,8 @@ subroutine test_to_lower_string
 
         dlc = to_lower("0123456789ABCDE")
         call check(dlc == "0123456789abcde")
+
+        call check(all(to_lower(["ABC", "DEF"]) == ["abc", "def"]))
     end subroutine test_to_lower_string
 
     subroutine test_to_upper_string
@@ -575,6 +577,8 @@ subroutine test_to_upper_string
 
         dlc = to_upper("0123456789abcde")
         call check(dlc == "0123456789ABCDE")
+
+        call check(all(to_upper(["abc", "def"]) == ["ABC", "DEF"]))
     end subroutine test_to_upper_string
 
     subroutine test_to_title_string
@@ -597,6 +601,8 @@ subroutine test_to_title_string
 
         dlc = to_title("""quOTed""")
         call check(dlc == """Quoted""")
+
+        call check(all(to_title(["abc", "def"]) == ["Abc", "Def"]))
     end subroutine test_to_title_string
 
     subroutine test_reverse_string
@@ -611,6 +617,8 @@ subroutine test_reverse_string
         call check(len_trim(dlc) == 32)
         call check(trim(dlc) == "                        desrever")
         call check(trim(adjustl(dlc)) == "desrever")
+
+        call check(all(reverse(["abc", "def"]) == ["cba", "fed"]))
     end subroutine test_reverse_string
 
 end program test_ascii