http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46917
Summary: ICE
Product: gcc
Version: 4.6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassig...@gcc.gnu.org
ReportedBy: vivekr...@yahoo.com
For the code
module random_integer_mod
implicit none
contains
function vec_block(ivec,block_size) result(jvec)
integer, intent(in) :: ivec(:)
integer, intent(in) :: block_size
integer :: jvec(size(ivec)*block_size)
jvec = 1
end function vec_block
!
function permute_blocks(nitems,block_size) result(ivec)
integer, intent(in) :: block_size,nitems
integer :: ivec(nitems)
integer :: nblocks
integer, allocatable :: jvec(:)
nblocks = 1
allocate (jvec(nblocks*block_size))
jvec = vec_block(permutation(nblocks),block_size)
ivec = 1
end function permute_blocks
!
function permutation(n) result(ivec)
integer, intent(in) :: n
integer :: ivec(n)
ivec = 1
end function permutation
end module random_integer_mod
Compiling gives
gfortran -c -v random_integer_gf_ice.f90
Built by Equation Solution <http://www.Equation.com>.
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=c:/fsf/bin/../libexec/gcc/i686-pc-mingw32/4.6.0/lto-wrapper.exe
Target: i686-pc-mingw32
Thread model: win32
gcc version 4.6.0 20101211 (experimental) (GCC)
COLLECT_GCC_OPTIONS='-c' '-v' '-mtune=generic' '-march=pentiumpro'
c:/fsf/bin/../libexec/gcc/i686-pc-mingw32/4.6.0/f951.exe
random_integer_gf_ice.f90 -quiet -dumpbase random_integer_gf_ice.f90
-mtune=generic -march=pentiumpro -auxbase random_integer_gf_ice -version
-fintrinsic-modules-path c:/fsf/bin/../lib/gcc/i686-pc-mingw32/4.6.0/finclude
-o C:\DOCUME~1\Vivek\LOCALS~1\Temp\ccZNOJh6.s
GNU Fortran (GCC) version 4.6.0 20101211 (experimental) (i686-pc-mingw32)
compiled by GNU C version 4.6.0 20101211 (experimental), GMP version 5.0.1,
MPFR version 3.0.0, MPC version 0.8.2
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
GNU Fortran (GCC) version 4.6.0 20101211 (experimental) (i686-pc-mingw32)
compiled by GNU C version 4.6.0 20101211 (experimental), GMP version 5.0.1,
MPFR version 3.0.0, MPC version 0.8.2
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
random_integer_gf_ice.f90: In function 'permute_blocks':
random_integer_gf_ice.f90:18:0: 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.
