PGI 16.9 中的行太长。怎么解决?
Line too long in PGI 16.9. How to solve?
使用以下虚拟代码重现问题。
program pp
implicit none
real*8,dimension(45) :: refPoints
refPoints(:) = (/ -1.0 , 1.0 , 1.0 , -1.0 , -1.0 , 1.0 , 1.0 , -1.0 , 0.0 , 1.0 , 0.0 , -1.0 , 0.0 , 1.0 , 0.0 , -1.0 , -1.0 , 1.0 , 1.0 , -1.0 , 0.0 , 1.0 , 0.0 ,-1.0 , 0.0 , 0.0 , 0.0 , 0.0 , 0.0 , 1.0, 1.0, 2.0 , 3.0, 34.0, 35.0, 25.0, 1.0, 50.0, 5.0, 55.0 , 1.0 , 2.0, 3.0, 4.0, 5.0/)
end program pp
PGF90-S-0285-源代码行太长 (pp.f90: 6)
PGF90-S-0023-语法错误 - 不平衡的括号 (pp.f90: 6)
0 次通知,0 次警告,2 次严重,0 次致命 pp
132 列是 F90 标准的限制,超出此限制是未定义的行为。虽然很痛苦,但在长期 运行 中,通过添加延续让您的代码合规会更好。
使用以下虚拟代码重现问题。
program pp
implicit none
real*8,dimension(45) :: refPoints
refPoints(:) = (/ -1.0 , 1.0 , 1.0 , -1.0 , -1.0 , 1.0 , 1.0 , -1.0 , 0.0 , 1.0 , 0.0 , -1.0 , 0.0 , 1.0 , 0.0 , -1.0 , -1.0 , 1.0 , 1.0 , -1.0 , 0.0 , 1.0 , 0.0 ,-1.0 , 0.0 , 0.0 , 0.0 , 0.0 , 0.0 , 1.0, 1.0, 2.0 , 3.0, 34.0, 35.0, 25.0, 1.0, 50.0, 5.0, 55.0 , 1.0 , 2.0, 3.0, 4.0, 5.0/)
end program pp
PGF90-S-0285-源代码行太长 (pp.f90: 6) PGF90-S-0023-语法错误 - 不平衡的括号 (pp.f90: 6) 0 次通知,0 次警告,2 次严重,0 次致命 pp
132 列是 F90 标准的限制,超出此限制是未定义的行为。虽然很痛苦,但在长期 运行 中,通过添加延续让您的代码合规会更好。