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