reverse 函数

public pure function reverse(string) result(reverse_string)

反转输入字符变量中的字符顺序（规范）

版本：实验性

参数

类型	意图	可选	属性		名称
character(len=*),	intent(in)			::	string

返回值 character(len=len)

源代码

    pure function reverse(string) result(reverse_string)
        character(len=*), intent(in) :: string
        character(len=len(string)) :: reverse_string
        integer :: i, n

        n = len(string)
        do i = 1, n
            reverse_string(n-i+1:n-i+1) = string(i:i)
        end do

    end function reverse