Неявное целое преобразование <--> логическое выражение в языке Fortran if

Question

У меня есть старый код Fortran, который меня попросил проанализировать и перевести на современный язык. Я не знаю, какой компилятор использовался в прошлом для компиляции кода, поэтому на данный момент я пытаюсь скомпилировать его с помощью gfortran. Код содержит заявление, как это было причины gfortran жаловаться:

program test 
    implicit none 
    integer*4 :: var 
    var=.true. 

    if(var) then 
     write(*,*) "Hi" 
    endif 

    end program test 

Компиляция это с gfortran дает следующее сообщение об ошибке:

test.f:6:9: 

     if(var) then 
     1 
Error: IF clause at (1) requires a scalar LOGICAL expression 

(Кроме того, это дает предупреждение о преобразовании сделано в var=.true.).

Я не уверен, какой компилятор был скомпилирован, но, очевидно, код должен компилироваться как есть. Есть ли способ сказать gfortran принять это преобразование?

Согласно документации, не неявное преобразование не выполняется в случае, заявления, хотя: https://gcc.gnu.org/onlinedocs/gfortran/Implicitly-convert-LOGICAL-and-INTEGER-values.html

Answer 1

Это не представляется возможным в GFortran. В manual состояния:

However, there is no implicit conversion of INTEGER values in if-statements, nor of LOGICAL or INTEGER values in I/O operations.

Вы только в состоянии выполнить неявное преобразование в назначениях, как ваш

integer :: var 
    var = .true. 

, но даже там вы должны быть очень осторожны. Он не соответствует стандарту, а значение var будет отличаться между компиляторами. Intel использовала -1 (все биты были установлены в 1), если не было выбрано -standard-semantics, для .true., но gfortran использует +1, как на языке C. Новые версии Intel Fortran меняют значение по умолчанию. Другое направление еще сложнее, могут быть значения, которые не являются .true. или .false..