------- Comment #3 from dominiq at lps dot ens dot fr 2008-03-27 11:08 ------- Some comments about the patch in comment #2:
1) If I am not mistaken, the first change is within a commented block (look at the last line in the diff.: ' } */') 2) With the patch I have a lot of regressions on my quick and dirty testsuite. Among them I have several: test.exe(65765) malloc: *** error for object 0x2004c0: incorrect checksum for freed object - object was probably modified after being freed. *** set a breakpoint in malloc_error_break to debug one example being: PROGRAM testb IMPLICIT none CHARACTER(len=120), DIMENSION(3) :: vect CHARACTER(len=1), DIMENSION(:), ALLOCATABLE :: cvect INTEGER :: length !!$----------------------- vect(:)=(/'ippaaa0','ippaaa1','ippaaa2'/) WRITE(*,*) 'Say hi!' length=SIZE(TRANSFER(vect,cvect)) WRITE(*,*) 'Say hi again!', length ALLOCATE(cvect(length)) cvect=TRANSFER(vect,cvect) !!$----------------- END PROGRAM testb -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35698
