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