Skip to Main Content

DevOps, CI/CD and Automation

Announcement

For appeals, questions and feedback about Oracle Forums, please email oracle-forums-moderators_us@oracle.com. Technical questions should be asked in the appropriate category. Thank you!

Bug in Sun Fortran 95 8.3 Build13_0

807575Feb 1 2006 — edited Feb 16 2006
Hello,

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
Comments
Locked Post
New comments cannot be posted to this locked post.
Post Details
Locked on Mar 16 2006
Added on Feb 1 2006
5 comments
98 views