is_upper 函数

public pure function is_upper(c)

检查c是否为大写 ASCII 字母 (A .. Z)。

参数

类型	意图	可选	属性		名称
character(len=1),	intent(in)			::	c	要测试的字符。

返回值 logical