int_1.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 33 行

! { dg-do run }
!
! 13.7.53    INT(A [, KIND])
!
! Description.  Convert to integer type.
! Class.       Elemental function.
! Arguments.
!    A               shall be of type integer, real, or complex,
!                    or a boz-literal-constant .
!    KIND (optional) shall be a scalar integer initialization expression.
!
! Result Characteristics. Integer. If KIND is present, the kind type
!    parameter is that specified by the value of KIND; otherwise, the
!    kind type parameter is that of default integer type.
!
! Result Value.
!
!    Case (1):  If A is of type integer, INT (A) = A.
!
!    Case (2):  If A is of type real, there are two cases:
!      (a) if |A| < 1, INT (A) has the value 0
!      (b) if |A| .ge. 1, INT (A) is the integer whose magnitude is the
!          largest integer that does not exceed the magnitude of A and
!          whose sign is the same as the sign of A.
!
!    Case (3):  If A is of type complex, INT(A) = INT(REAL(A, KIND(A))).
!
!    Case (4):  If A is a boz-literal-constant, it is treated as if it were
!               an int-literal-constant with a kind-param that specifies the
!               representation method with the largest decimal exponent range
!               supported by the processor.
!
!    Example. INT (