使用gfotran 编译时提示
solver_mod.f90:84.16:
if(restart==0)
1
Error: Cannot assign to a named constant at (1)
这是少了 一个 then,改为
if(restart==0) then
编译通过
使用gfotran 编译时提示
solver_mod.f90:84.16:
if(restart==0)
1
Error: Cannot assign to a named constant at (1)
这是少了 一个 then,改为
if(restart==0) then
编译通过