[Bug fortran/25312] New: error in indexes in data assignment

[segalemb at usp dot br]

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


-- 
           Summary: error in indexes in data assignment
           Product: gcc
           Version: 4.0.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: segalemb at usp dot br


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25312