to_upper Function

  1. stdlib_ascii.fypp
  2. stdlib_ascii
  3. to_upper

public pure function to_upper(string) result(upper_string)

Convert character variable to upper case (Specification)

Version: experimental

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: string

Return Value character(len=len)


Contents

Source Code

to_upper

Source Code

    pure function to_upper(string) result(upper_string)
        character(len=*), intent(in) :: string
        character(len=len(string)) :: upper_string
        integer :: i

        do i = 1, len(string)
            upper_string(i:i) = char_to_upper(string(i:i))
        end do

    end function to_upper