[Bug fortran/58861] New: No reallocation assignment performed (due to different kinds?)

[vladimir.fuka at gmail dot com]

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

            Bug ID: 58861
           Summary: No reallocation assignment performed (due to different
                    kinds?)
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: vladimir.fuka at gmail dot com

program test
    real(8), allocatable :: a(:,:)
    real(4),allocatable :: b(:,:)
    allocate(b(100,100))
    b = 0
    !both lines below create problem
    a = real(b,kind=kind(a))
    a = b
end


gfortran realloc3.f90 -fcheck=all -Wall
gcc version 4.8.1 20130509 (prerelease) (GCC)

./a.out 
At line 7 of file realloc3.f90
Fortran runtime error: Array bound mismatch for dimension 1 of array 'a'
(0/100)