你遇到的问题主要是两个核心点：隐含类型规则与参数类型不匹配，以及parameter声明的语法使用错误。我们一步步拆解解决：

你的错误根源 #

1. 类型冲突：你写的implicit integer (w, i)会让所有以w和i开头的变量默认被识别为integer类型，但wp需要赋值的real64是real类型的参数（来自iso_fortran_env模块），这种类型不匹配直接导致编译失败。
2. parameter语法误用：单独的parameter :: ...只有在变量类型已经通过隐含规则或显式声明确定后才能生效，否则编译器无法识别变量的基础类型。

正确的代码写法 #

我们需要调整implicit语句，让wp（以w开头）对应real类型，iwp（以i开头）对应integer类型，确保隐含类型和赋值的参数类型匹配。下面是两种可行的写法：

写法1：利用隐含类型+简洁参数声明 #

module kinds
use iso_fortran_env, only : real64, int32
! 设置隐含规则：w开头变量默认是real类型，i开头变量默认是integer类型
implicit real (w)
implicit integer (i)
! 类型已由隐含规则确定，直接声明参数即可
parameter :: wp = real64, iwp = int32
end module kinds

写法2：显式声明类型+参数（可读性更强，推荐） #

如果觉得隐含类型不够直观，也可以保留implicit语句的同时，显式声明参数类型：

module kinds
use iso_fortran_env, only : real64, int32
implicit real (w)
implicit integer (i)
! 显式声明类型+参数，代码意图更清晰
real, parameter :: wp = real64
integer, parameter :: iwp = int32
end module kinds

关键说明 #

• implicit语句的作用是定义变量默认类型规则，仅对未显式声明类型的变量生效。如果变量已有显式类型声明（比如写法2中的real, parameter），隐含规则不会覆盖它。
• 必须保证变量的隐含/显式类型与赋值的参数类型严格匹配：wp对应real64（real类型），iwp对应int32（integer类型），这是编译通过的核心前提。

内容的提问来源于stack exchange，提问作者Many