Here's the piece of code: program bug
real, dimension(100) :: dummy real, dimension(100) :: foo integer :: i do i=1,100 call random_number(dummy(i)) call random_number(foo(i)) end do write(*,*) foo(maxloc(dummy)) end program and the output. bash-2.05b$ gfc bug.f90 bug.f90: In function 'MAIN__': bug.f90:12: internal compiler error: in gfc_conv_ss_descriptor, at fortran/trans-array.c:1224 Please submit a full bug report, bash-2.05b$ gfc --version GNU Fortran 95 (GCC 4.1.0 20050416 (experimental)) Copyright (C) 2005 Free Software Foundation, Inc. -- Summary: internal compiler error in gfc_conv_ss_descriptor, at fortran/trans-array.c:1224 after using maxloc function Product: gcc Version: 4.1.0 Status: UNCONFIRMED Severity: normal Priority: P2 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: guillemborrell at yahoo dot es CC: gcc-bugs at gcc dot gnu dot org GCC build triplet: i686-pc-linux-gnu GCC host triplet: i686-pc-linux-gnu GCC target triplet: i686-pc-linux-gnu http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21063