Revert e670262

Change from pure to elemental requires extra discussion, therefore
inclusion of this patch is deferred.

Author: awvwgk

doc/specs/stdlib_ascii.md

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

src/stdlib_ascii.f90

@@ -213,7 +213,7 @@ end function char_to_upper
     !> Convert character variable to lower case
     !>
     !> Version: experimental
-    elemental function to_lower(string) result(lower_string)
+    pure 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
-    elemental function to_upper(string) result(upper_string)
+    pure 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
-    elemental function to_title(string) result(title_string)
+    pure 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
-    elemental function reverse(string) result(reverse_string)
+    pure 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,8 +559,6 @@ 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
@@ -577,8 +575,6 @@ 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
@@ -601,8 +597,6 @@ 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
@@ -617,8 +611,6 @@ 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