is_upper Function

public elemental function is_upper(c)

Checks whether c is an uppercase ASCII letter (A .. Z).

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: c

The character to test.

Return Value logical


Source Code

   elemental logical function is_upper(c)
      character(len=1), intent(in) :: c
          !! The character to test.
      is_upper = (c >= "A") .and. (c <= "Z")
   end function is_upper