Gfortran: Обработать все блоки, как и блоки.

Question

Мне нужно отладить программу, которая включает в себя forall блоков. Внутри них находятся подпрограммы или функции pure. Для того, чтобы временно отключить pure предикат я использую C препроцессор, как в следующий вопрос, поставленный мною:

Gfortran: Treat pure functions as normal functions for debugging purposes?

Проблема теперь в том, что если подпрограммы или функции внутри forall блока не pure I получить компиляцию ошибок. Есть ли возможность лечения этих ошибок

Error: Reference to non-PURE function 'pvkp' at (1) inside a FORALL block 

только как предупреждения или есть, может быть легко возможность использовать C препроцессор для поворота

forall (i=1:n) 
    ... 
end forall 

в

do i=1,n 
    ... 
end do 

Любые идеи оценили!

Answer 1

Одним из упрощений является использование цикла do concurrent вместо блока forall. Это уменьшает количество связанных изменений, необходимых в коде: нужно только изменить спецификацию цикла, а не изменить end forall на end do.

подход не гордиться, используя cpp, и подходит только для простых случаев:

#ifdef DEBUG 
#define conloop(var, lower, upper) do var=lower, upper 
#else 
#define conloop(var, lower, upper) do concurrent (var=lower:upper) 
#endif 

    conloop(i,1,n) ! Either a DO or DO CONCURRENT depending on DEBUG 
    ... 
    end do 
end 

выше действительно имеют очевидное расширение для использования forall конструкции (с дополнительной #define для концовки) если это действительно то, что вы хотите. С другой стороны, хотя и более утомительным производить, используя такие вещи, как

#ifdef DEBUG 
do i=1,n 
#else 
forall (i=1:n) 
#endif 
    ... 
#ifdef DEBUG 
end do 
#else 
end forall 
#end 

Это ужасно, но я полагаю, что это верно для всех подходов до процессора. Это позволяет более сложные маски и более локализован.