23 Dec 2018 12:30
#23041
The following code causes the 8.30.279 compiler to issue 'Internal Compiler Error' when the option combinations /64, /64 /opt or /64 /debug are used. No such error occurs for 32-bit compilations or if the /check or /checkmate options are used with 64-bit compilations.
subroutine rg(nm, n, a, wr, wi, matz, z, iv1, fv1, ierr)
integer :: n, nm, is1, is2, ierr, matz
double precision :: a(nm, n), wr(n), wi(n), z(nm, n), fv1(n)
integer :: i, iv1(n)
!
print *,'Before BALANC'
write(*,10)(i,a(i,1:n),i=1,n)
call balanc(nm, n, a, is1, is2, fv1)
print *,'After BALANC, is1,is2= ',is1,is2
print 10,(i,a(i,1:n),i=1,n)
print *
print '(8ES12.4)',fv1(1:n)
return
10 format(1x,i2,8ES12.4)
end subroutine