gfortran internal compiler error

[rodriguez-carvajal]

  Dear colleagues,
The small program below produces an internal compiler error using 
gfortran in windows (MinGW version: GNU Fortran (GCC) 4.10.0 20140629 
(experimental) [trunk revision 212119])
Regards,
Juan Rodriguez-Carvajal

  Program test_gfortran_segmentation_fault
    implicit none
    integer, dimension(:,:),allocatable :: dat
    real, dimension(:,:),allocatable :: rdat
    integer :: nrow=3000, ncol=7300
    real :: time_factor=0.123456789
    integer(kind=8) :: suma

    allocate(dat(nrow,ncol),rdat(nrow,ncol))
    call random_number(rdat)
    rdat=rdat*1000
    dat=nint(rdat)
    dat=nint(real(dat)*time_factor) !<<<<-This statement produces an 
internal compiler error
    !rdat=real(dat)*time_factor !Replacing the above statement with these 
two
    !dat=nint(rdat)             !statemens is OK
    suma=sum(dat)
    write(*,"(a,i12)") " Sum of all the array elements: ",suma
  End Program test_gfortran_segmentation_fault