---

Manual Reference Pages  - isupper (3)

---

NAME

isupper(3f) - [M_strings:COMPARE] returns .true. if character is an uppercase letter (A-Z) (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Example
Author
License

SYNOPSIS

elemental function isupper(onechar)

    character,intent(in) :: onechar
    logical              :: isupper

DESCRIPTION

isupper(3f) returns .true. if character is an uppercase letter (A-Z)

OPTIONS

onechar
	character to test

RETURNS

isupper
	logical value returns true if character is an uppercase ASCII character else false.

EXAMPLE

Sample program:

    program demo_isupper
    use M_strings, only : isupper
    implicit none
    integer                    :: i
    character(len=1),parameter :: string(*)=[(char(i),i=0,127)]
       write(*,’(10(g0,1x))’)’ISUPPER: ’, &
       & ichar(pack( string, isupper(string) ))
       write(*,’(10(g0,1x))’)’ISUPPER: ’, &
       & pack( string, isupper(string) )
    end program demo_isupper

Results:

   ISUPPER:  65 66 67 68 69 70 71 72 73
   74 75 76 77 78 79 80 81 82 83
   84 85 86 87 88 89 90
   ISUPPER:  A B C D E F G H I

    J K L M N O P Q R S

    T U V W X Y Z

AUTHOR

John S. Urban

LICENSE

Public Domain

---

isupper (3)

March 11, 2021

Generated by manServer 1.08 from 78595cb1-505a-48f8-8b38-02b3c5f19292 using man macros.