mecej4
Joined: 31 Oct 2006 Posts: 1886
|
Posted: Sun Dec 23, 2018 1:30 pm Post subject: Internal compiler error |
|
|
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.
Code: | 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 |
|
|