18 Nov 2016 1:31
#18429
Given this stripped-down source, the FTN95 compiler V8.05 fails in 32-bit mode, but works in 64-bit mode.
subroutine wr_val_e4 (val, str, n)
real :: val
character :: str*(*)
integer*8 :: v, ten = 10
integer :: n, z = ichar ('0')
!
v = abs(val)
str(n:n) = char (mod(v,ten)+z)
return
end subroutine wr_val_e4
The error messages are
0008) str(n:n) = char (mod(v,ten)+z)
*** Operand incompatible with opcode
*** Invalid machine instruction generated