lge(x, y): Lexically Greater or Equal

Lexically greater than or equal.

Declaration

Syntax

retval = lge(x, y)
function lge(x, y)

Arguments

x input value of type character.

y input value of type character.

x and y can be seen as string A and string B.

Return values

The return value is of logical true or false type.

True if x string is lexically greater than or equal to y.

False if they are not.

Описание

lge(x, y) determines if input string x is lexically greater than or equal to input string y. The two strings in comparison are interpreted as containing ASCII character codes.

Types

Argument types should be of type character literal.

module lfortran_intrinsic_string
    use, intrinsic :: iso_fortran_env, only: i64 => int64
implicit none

interface repeat
    module procedure repeati32, repeati64
end interface

contains

function lge(x, y) result(r)
    character(len=*),intent(in) :: x
    character(len=*),intent(in) :: y
    logical :: r
end function

Examples

program intrinsics_lge
    implicit none
    character(len = 10) :: s1 = 'abcde'
	character(len = 10) :: s2 = 'xyz'
    character(len = 10) :: s3 = 'AB'
	character(len = 10) :: s4 = 'AAB'
	print *, lge(s1, s2)
end program

Result:

false
true

See Also

len_trim.