Слишком длинная строка в PGI 16.9. Как решить?

Используйте следующий фиктивный код, чтобы повторить проблему.

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 inform, 0 предупреждений, 2 разрыва, 0 фатально для pp

Источник

1 ответ

Решение

132 столбца - это предел стандарта F90, а выход за этот предел - неопределенное поведение. Несмотря на боль, в конечном итоге вам будет лучше, если вы приведете свой код в соответствие, добавив продолжения.

Источник
Другие вопросы по тегам