Fortran Critical Hint不支持部分常量表达式

在critical指令的hint子句中，不支持部分常量表达式，如!$omp critical hint(lshift(20,5))，报错信息为：

F90-S-0155-The parameter of the HINT clause must be a constant non-negative integer expression

规避方案是可以将lshift(20,5)的值算出来（即640）进行替换，!$omp critical hint(640)。