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

["fxcoudert at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #3 from fxcoudert at gcc dot gnu dot org  2007-08-10 12:34 -------
The further I can reduce this is:

$ cat u.f90
  character(2) :: c(2)
  integer(kind=4) :: i

  c = "aa"
  call foo ((/(c(i), i = 1_4,2_4)/))
  print *, c .eq. "aa"

contains
  subroutine foo (c)
    character(*), dimension(:) :: c
  end subroutine foo
end
$ gfortran -m32 -fdefault-integer-8 u.f90 && ./a.out
Segmentation fault

The only place where integer default kind appears is the .eq. operator, which
returns a logical of the default kind.


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |fxcoudert at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2007-08-08 15:26:23         |2007-08-10 12:34:34
               date|                            |


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