, 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