Hello,

 When I try to compile the code:

==================================================================================
     module param
      double precision mutdefc(8,5)
      data mutdefc(1,1)/0.0000D0/
      data mutdefc(1,1)/0.0000D0/
      end module param
================================================================================

witth the same indexes in both assignments of mutdefc, the compliler presents an internal error:

===============================================================================
Driving: gfortran40 -v -g -save-temps a.F -lgfortranbegin -lgfortran -lm
Using built-in specs.
Target: i386-portbld-freebsd5.4
Configured with: ./..//gcc-4.0-20050728/configure --disable-nls --with-system-zlib --with-libiconv-prefix=/usr/local --program-suffix=40 --libdir=/usr/local/lib/gcc/i386-portbld-freebsd5.4/4.0.2 --with-gxx-include-dir=/usr/local/lib/gcc/i386-portbld-freebsd5.4/4.0.2/include/c++/ --with-gmp=/usr/local --disable-shared --prefix=/usr/local i386-portbld-freebsd5.4
Thread model: posix
gcc version 4.0.2 20050728 (prerelease) [FreeBSD]
 /usr/local/libexec/gcc/i386-portbld-freebsd5.4/4.0.2/cc1 -E -traditional-cpp -D_LANGUAGE_FORTRAN -quiet -v a.F -fworking-directory -fpch-preprocess -o a.f
ignoring nonexistent directory "/usr/local/lib/gcc/i386-portbld-freebsd5.4/4.0.2/gcc/i386-portbld-freebsd5.4/4.0.2/../../../../i386-portbld-freebsd5.4/include"
#include "..." search starts here:
#include <...> search starts here:
 /usr/local/include
 /usr/local/lib/gcc/i386-portbld-freebsd5.4/4.0.2/gcc/i386-portbld-freebsd5.4/4.0.2/include
 /usr/include
End of search list.
 /usr/local/libexec/gcc/i386-portbld-freebsd5.4/4.0.2/f951 a.f -ffixed-form -quiet -dumpbase a.F -auxbase a -g -version -o a.s
GNU F95 version 4.0.2 20050728 (prerelease) [FreeBSD] (i386-portbld-freebsd5.4)
	compiled by GNU C version 4.0.2 20050728 (prerelease) [FreeBSD].
GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
a.f:0: internal compiler error: in gfc_assign_data_value, at fortran/data.c:319
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

===============================================================================

but, whwn I change the indexes of mutdefc, as mutdefc(1,1) and mutdefc(1,2) the 
executable is generated.

     Thank you very much,

                    Sergio