kind(x)：实体的种类

一种实体。

声明

语法

retval = kind(x)
integer function kind(x)

参数

x 输入值，可以是逻辑、整数、实数、复数或字符。 它可以是标量或数组值，即任何内在类型。

返回值

返回值是整数类型和默认整数类型。

描述

kind(x) 返回输入参数 x 的种类参数。

类型

支持的参数类型是逻辑、整数、实数、复数或字符。

module lfortran_intrinsic_kind
implicit none
contains

integer function kind(x) result(r)
logical(4), intent(in) :: x
r = 4
end function

integer function skind(x) result(r)
real(4), intent(in) :: x
r = 4
end function

integer function dkind(x) result(r)
real(8), intent(in) :: x
r = 8
end function

integer function lkind(x) result(r)
logical(4), intent(in) :: x
r = 4
end function

end module

示例

program intrinsics_kind
    use lfortran_intrinsic_kind, only: kind
    implicit none
	logical :: l4d
	logical(4) :: l4
	print *, kind(l4d)
	print *, kind(l4)
end program

结果：

4
4

也可以看看

无。