MODULE check. IMPLICIT NONE. INTEGER, PARAMETER :: & longint = SELECTED_INT_KIND(8). CONTAINS. FUNCTION check_this(x) RESULT(z). INTEGER(longint):: x, z ... END ...
確定! 回上一頁