Code follows
program dumm
implicit none
integer :: n
double precision :: fi
double precision, parameter :: one=1d0
! Statement functions
fi(n)=n *one
write(6,*) fi(10)
stop
end
The compiler yields
t.f90:0: internal compiler error: Bus error
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
--
Summary: bug compiling following few lines code with gfortran
Product: gcc
Version: unknown
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: pavarini at pv dot infn dot it
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24655