[Bug libfortran/18857] New: MATMUL failing with ALLOCATED matrices, unless base indices given

["paulthomas2 at wanadoo dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

The below fails with CYGWIN_NT_5.1 + Windows XP (SP2) on AMD Athlon XP2600+ (M)

assertion "a->base == 0" failed: file "../../../gcc-4.0-
20041205/libgfortran/generated/matmul_r8.c",
line 157
Aborted (core dumped)

This does not happen on my Athlon XP1700 machine, nor on a PIV. I have built 
the 20041205 cvs and tried various snapshots, all with the same result.


!unless matmul line is substituted
program test_matmul
INTEGER, parameter      ::  n=2,m=2
real(kind=8), dimension(:,:),allocatable    ::  unity,x,w
allocate(unity(N,N),x(N,M),w(N,M))
unity(:,1)=(/1,0/)    ;    x(:,1)    =(/1,2/)
unity(:,2)=(/0,1/)    ;    x(:,2)    =(/3,4/)
w=matmul(unity,x)                         !crashes
!w(1:,1:)=matmul(unity(1:,1:),x(1:,1:))   !does not
print *,all(w.eq.w)
deallocate(unity,x,w)
end program test_matmul

-- 
           Summary: MATMUL failing with ALLOCATED matrices, unless base
                    indices given
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: paulthomas2 at wanadoo dot fr
                CC: gcc-bugs at gcc dot gnu dot org


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