This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/35698] lbound and ubound wrong for allocated run-time zero size array



------- 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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]