[Bug fortran/37706] New: ICE: Segmentation fault
petrielmjr at ornl dot gov
gcc-bugzilla@gcc.gnu.org
Wed Oct 1 19:46:00 GMT 2008
When the deck below is compiled with gfortran, an ICE occurs.
Gfortran version:
Using built-in specs.
Target: i586-pc-linux-gnu
Configured with: /home/fx/gfortran_nightbuild/trunk/configure
--prefix=/home/fx/gfortran_nightbuild/irun-20080925
--enable-languages=c,fortran --build=i586-pc-linux-gnu
--enable-checking=release --with-gmp=/home/fx/gfortran_nightbuild/software
Thread model: posix
gcc version 4.4.0 20080925 (experimental) [trunk revision 140657] (GCC)
Command line:
gfortran -c nudata_error.f90
Compiler output:
nudata_error.f90: In function 'nudata':
nudata_error.f90:72: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
nudata_error.f90:
module libcom_C
! Module: $Source:
/tmp_mnt/cpesrv/projects/scale/scale5/src/couple/RCS/libcom_C.f90,v $
! Revision: $Revision: 1.1 $
! Author: $Author: IanGauld $
! Date: $Date: 2001/09/17 12:40:21 $
! State: $State: Stab $
! Locker: $Locker: $
!...Created by Pacific-Sierra Research 77to90 4.3E 10:07:04 12/12/00
integer :: ndset, nolib, ntype, ngrp, kout, mpctab, inpt, ir, lpu, nn1, &
nn2, nn3, nn4, nn5, nn6, nn7, nn8, itmax, ilmax, iamax, ifmax, izmax,
&
nreact, nfiso, nelem, nmo, nday, nyr, nenac, nenle, nenfp, nread, &
mread, non, mtot, ntot, maxgp, itot
character(4), dimension(20) :: titlex
character(4), dimension(18) :: title
character(4), dimension(10) :: basis
real :: therm, res, fast, err
end module libcom_C
module data_C
! Module: $Source:
/tmp_mnt/cpesrv/projects/scale/scale5/src/couple/RCS/data_C.f90,v $
! Revision: $Revision: 1.1 $
! Author: $Author: IanGauld $
! Date: $Date: 2001/09/17 12:40:14 $
! State: $State: Stab $
! Locker: $Locker: $
!...Created by Pacific-Sierra Research 77to90 4.3E 10:07:07 12/12/00
integer, dimension(200) :: l
integer :: l0
integer :: l1, l2, l3, l4, l5, l6, l7, l8, l9, l10, &
l11, l12, l13, l14, l15, l16, l17, l18, l19, l20, &
l21, l22, l23, l24, l25, l26, l27, l28, l29, l30, &
l31, l32, l33, l34, l35, l36, l37, l38, l39, l40, &
l41, l42, l43, l44, l45, l46, l47, l48, l49, l50, &
l51, l52, l53, l54, l55, l56, l57, l58, l59, l60, &
l61, l62, l63, l64, l65, l66, l67, l68, l69, l70, &
l71, l72, l73, l74, l75, l76, l77, l78, l79, l80, &
l81, l82, l83, l84, l85, l86, l87, l88, l89, l90, &
l91, l92, l93, l94, l95, l96, l97, l98, l99, l100, &
l101, l102, l103, l104, l105, l106, l107, l108, l109, l110, &
l111, l112, l113, l114, l115, l116, l117, l118, l119, l120, &
l121, l122, l123, l124, l125, l126, l127, l128, l129, l130, &
l131, l132, l133, l134, l135, l136, l137, l138, l139, l140, &
l141, l142, l143, l144, l145, l146, l147, l148, l149, l150, &
l151, l152, l153, l154, l155, l156, l157, l158, l159, l160, &
l161, l162, l163, l164, l165, l166, l167, l168, l169, l170, &
l171, l172, l173, l174, l175, l176, l177, l178, l179, l180, &
l181, l182, l183, l184, l185, l186, l187, l188, l189, l190, &
l191, l192, l193, l194, l195, l196, l197, l198, l199
common /data/ l0, &
l1, l2, l3, l4, l5, l6, l7, l8, l9, l10, &
l11, l12, l13, l14, l15, l16, l17, l18, l19, l20, &
l21, l22, l23, l24, l25, l26, l27, l28, l29, l30, &
l31, l32, l33, l34, l35, l36, l37, l38, l39, l40, &
l41, l42, l43, l44, l45, l46, l47, l48, l49, l50, &
l51, l52, l53, l54, l55, l56, l57, l58, l59, l60, &
l61, l62, l63, l64, l65, l66, l67, l68, l69, l70, &
l71, l72, l73, l74, l75, l76, l77, l78, l79, l80, &
l81, l82, l83, l84, l85, l86, l87, l88, l89, l90, &
l91, l92, l93, l94, l95, l96, l97, l98, l99, l100, &
l101, l102, l103, l104, l105, l106, l107, l108, l109, l110, &
l111, l112, l113, l114, l115, l116, l117, l118, l119, l120, &
l121, l122, l123, l124, l125, l126, l127, l128, l129, l130, &
l131, l132, l133, l134, l135, l136, l137, l138, l139, l140, &
l141, l142, l143, l144, l145, l146, l147, l148, l149, l150, &
l151, l152, l153, l154, l155, l156, l157, l158, l159, l160, &
l161, l162, l163, l164, l165, l166, l167, l168, l169, l170, &
l171, l172, l173, l174, l175, l176, l177, l178, l179, l180, &
l181, l182, l183, l184, l185, l186, l187, l188, l189, l190, &
l191, l192, l193, l194, l195, l196, l197, l198, l199
real :: data_a(200)
equivalence ( data_a(1), l(1), l0 )
end module data_C
subroutine nudata(nlibe, a, l)
! Module: $Source:
/tmp_mnt/cpesrv/projects/scale/scale5/src/couple/RCS/nudata.f90,v $
! Revision: $Revision: 1.3 $
! Author: $Author: IanGauld $
! Date: $Date: 2004/02/26 20:32:22 $
! State: $State: Stab $
! Locker: $Locker: $
!...Translated by Pacific-Sierra Research 77to90 4.3E 10:07:18 12/12/00
!...Switches: -xf -pl -qt -rou2
!-----------------------------------------------
! M o d u l e s
!-----------------------------------------------
USE data_C, only: l24, l27, l28, l29, l30, l31, l32, l33, l34, l35, &
l36, l37, l38, l39, l40, l41, l42, l43, l44, l45, l46, l47, l48, &
l49, l50, l51, l52, l62, l138, l139, l140, l141
USE libcom_C, only: nreact, nfiso
!-----------------------------------------------
! I n t e r f a c e B l o c k s
!-----------------------------------------------
! use xnudat_I
implicit none
!-----------------------------------------------
! D u m m y A r g u m e n t s
!-----------------------------------------------
integer :: nlibe
integer :: l(*)
real :: a(*)
!-----------------------------------------------
! L o c a l V a r i a b l e s
!-----------------------------------------------
integer :: inprod, icoeff
!-----------------------------------------------
!
inprod = nreact
icoeff = nreact
call xnudat (nlibe, l(l24), a(l27), a(l28), a(l29), a(l30), a(l31), &
a(l32), l(l33), a(l34), a(l35), l(l36), l(l37), a(l38), a(l39), &
l(l40), l(l41), l(l42), l(l43), l(l44), a(l45), a(l46), a(l47), &
a(l48), a(l49), l(l50), a(l51), l(l52), a(l62), a(l138), &
a(max(1,l139)), a(max(1,l140)), a(max(1,l141)), inprod, icoeff)
return
end subroutine nudata
--
Summary: ICE: Segmentation fault
Product: gcc
Version: 4.4.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: petrielmjr at ornl dot gov
GCC build triplet: i586-pc-linux-gnu
GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i586-pc-linux-gnu
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37706
More information about the Gcc-bugs
mailing list