------- Comment #1 from burnus at gcc dot gnu dot org 2007-05-03 19:43 ------- ==11966== Invalid read of size 8 ==11966== at 0x41BF0C: gfc_check_pointer_assign (expr.c:2555) ==11966== by 0x4519D0: resolve_code (resolve.c:5225) ==11966== by 0x452D3D: resolve_codes (resolve.c:7386)
Better test case: ------------------- character (len = 7), target :: textt character (len = 7), pointer :: textp character (len = 5), pointer :: textp2 textp => textt textp2 => textt(1:5) if(len(textp) /= 7) call abort() if(len(textp2) /= 5) call abort() textp = 'aaaaaaa' textp2 = 'bbbbbbb' if(textp /= 'bbbbbaa') call abort() if(textp2 /= 'bbbbb') call abort() end -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31803