如何在Fortran中为自定义Kind类型的常量创建专属声明标识？

你无法自定义类似D（双精度）、Q（四精度）的实型常量字母后缀，这类后缀是Fortran标准预先定义的语法规则，由编译器原生支持，普通用户没有权限新增自定义的字母作为常量标识后缀。

你可以用以下两种兼容方案实现相同的效果：

方案1：使用标准Kind后缀语法（最推荐） #

该写法完全符合Fortran 2003及更高版本的标准，所有主流编译器均支持，无需依赖额外配置：

1. 先统一定义你的目标Kind参数：

! 直接指定你当前使用的Kind值
integer, parameter :: u_real = 32
! 更推荐跨编译器的标准化定义，避免不同厂商编译器Kind值规则不同
! use iso_fortran_env, only: real32
! integer, parameter :: u_real = real32

2. 声明常量时直接追加_u_real后缀即可，效果和你想要的U后缀完全一致：

real(kind=u_real) :: var
var = 1.414_u_real ! 该常量自动为u_real对应的Kind类型

方案2：通过预处理宏实现更短的调用形式（非标准） #

如果你希望进一步简化写法，可以通过编译器预处理宏实现类似U(xxx)的调用效果，需要在编译时开启编译器的预处理选项（gfortran加-cpp参数，Intel Fortran加-fpp参数）：

! 先定义转换宏
#define U(val) real(val, u_real)

! 使用示例
var = U(1.414)

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