[Bug fortran/32937] segfault with string and -fdefault-integer-8

["dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #1 from dominiq at lps dot ens dot fr  2007-07-30 20:24 -------
> The problem appears to be that the first argument to gfortani_compare_string
> is pushed as an 8-byte integer, which messes things up.

The test passes for me with -m64, without it the backtrace is (on Darwin8):

Host Name:      pbook
Date/Time:      2007-07-30 22:16:50.772 +0200
OS Version:     10.4.10 (Build 8R218)
Report Version: 4

Command: a.out
Path:    a.out
Parent:  tcsh [26848]

Version: ??? (???)

PID:    115
Thread: 0

Exception:  EXC_BAD_ACCESS (0x0001)
Codes:      KERN_PROTECTION_FAILURE (0x0002) at 0x00000004

Thread 0 Crashed:
0   libSystem.B.dylib           0x90131280 bcmp + 224
1   libgfortran.3.dylib         0x00474acc _gfortran_compare_string + 64
(string_intrinsics.c:87)
2   a.out                       0x00003738 MAIN__ + 976 (darwin-crt3.c:395)
3   a.out                       0x00003b94 main + 48 (fmain.c:26)
4   a.out                       0x000028b0 _start + 760
5   a.out                       0x000025b4 start + 48

Thread 0 crashed with PPC Thread State 64:
  srr0: 0x0000000090131280 srr1: 0x100000000000d030                       
vrsave: 0x0000000000000000
    cr: 0x44008002          xer: 0x0000000020000000   lr: 0x0000000000474acc 
ctr: 0x0000000000000400
    r0: 0x0000000000001000   r1: 0x00000000bfffe230   r2: 0x000000000000001c  
r3: 0x0000000000000004
    r4: 0x0000000000000000   r5: 0x00000000bfffd2e4   r6: 0x0000000000000000  
r7: 0x0000000000000000
    r8: 0x0000000000000400   r9: 0x0000000000001000  r10: 0x0000000000000006 
r11: 0x0000000022008002
   r12: 0x00000000901311a0  r13: 0x0000000000000000  r14: 0x0000000000000000 
r15: 0x0000000000000000
   r16: 0x0000000000000000  r17: 0x0000000000000000  r18: 0x0000000000000000 
r19: 0x0000000000000000
   r20: 0x0000000000000000  r21: 0x0000000000000000  r22: 0x0000000000000000 
r23: 0x0000000000000000
   r24: 0x0000000000000000  r25: 0x0000000000000001  r26: 0x00000000bfffe5bc 
r27: 0x0000000000000004
   r28: 0x0000000000000000  r29: 0x0000000000000000  r30: 0x00000000bfffe2e4 
r31: 0x0000000000003380

Binary Images Description:
    0x1000 -     0x3fff a.out  
/Users/dominiq/Documents/Fortran/g95bench/win/f90/bug/a.out
   0x33000 -    0x3efff libgcc_s.1.dylib       
/opt/gcc/gcc4.3/lib/libgcc_s.1.dylib
   0x7e000 -    0x89fff libgcc_s.1.dylib        /libgcc_s.1.dylib
  0x405000 -   0x481fff libgfortran.3.dylib    
/opt/gcc/gcc4.3/lib/libgfortran.3.dylib
0x8fe00000 - 0x8fe52fff dyld 46.12      /usr/lib/dyld
0x90000000 - 0x901bcfff libSystem.B.dylib       /usr/lib/libSystem.B.dylib
0x90214000 - 0x90219fff libmathCommon.A.dylib  
/usr/lib/system/libmathCommon.A.dylib


-- 


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