| 
 | 
 
Program www_fcode_cn 
    Implicit None 
    Integer :: i 
    Do i = 1,20 
        write(*,*) i , Select_Int_Kind(i) 
    End Do   
End Program www_fcode_cn 
 
1>------ 已启动生成:  项目: fcode_test, 配置: Debug Win32 ------ 
1>Compiling with Intel(R) Visual Fortran Compiler XE 14.0.1.139 [IA-32]... 
1>Selected_Int_Kind.f90 
1>d:\Projects\fcode_test\fcode_test\Selected_Int_Kind.f90(5): error #6404: This name does not have a type, and must have an explicit type.   [SELECT_INT_KIND] 
1>compilation aborted for d:\Projects\fcode_test\fcode_test\Selected_Int_Kind.f90 (code 1) 
1> 
1>Build log written to  "file://d:\Projects\fcode_test\fcode_test\Debug\BuildLog.htm" 
1>fcode_test - 2 error(s), 0 warning(s) 
========== 生成:  成功 0 个,失败 1 个,最新 0 个,跳过 0 个 ========== 
刚学fortran,需要帮忙   
 
 
 |   
 
 
 
 |