Bug in Sun Fortran 95 8.3 Build13_0
807575Feb 1 2006 — edited Feb 16 2006Hello,
the Linux Fortran Compiler has an Internal Error when compiling the following example. The Studio 11 Compiler on x86 Solaris works fine.
Error:
f90comp: /set/mars/builds.intel-Linux/nightly.Fri.respin/intel-Linux/lang/f90/fe/srcme/compiler/low_utl/utl/sparse_bitvec.h:281: bool SparseBitVec::is_member(long int) const: Assertion `bit >= 0' failed.
"bcsubin.f", Line = 16, Column = 1: INTERNAL: Interrupt: Aborted
Command:
f90 -c -xO3 bcsubin.f
Example file:
c***********************************************************************
subroutine bcsubin ()
c***********************************************************************
integer newton
parameter ( newton = 1 )
integer lx1, lx2, lx1end, lx2end
integer solve, n, maxitstep
real epsstep
solve = newton
if (solve .eq. newton) then
elseif (solve .eq. stepwise) then
do 2200 n = 1, maxitstep
if ( solve .gt. epsstep ) then
else
goto 2300
endif
2200 continue
2300 continue
else
goto 9000
endif
3100 continue
9000 continue
end
Regards
Samuel