------- Comment #1 from tkoenig at gcc dot gnu dot org 2007-09-09 20:03 -------
Reduced testcase due to Paul Thomas:
$ cat > goo.f90
program main
type foo
integer :: i
character(len=3) :: c
end type foo
type(foo), dimension(4), target :: a
a%i = (/ 12, 2, 3, 10 /)
print *, a%i
end program main
$ gfortran goo.f90
$ ./a.out
12 3 68 0
Confirmed.
--
tkoenig at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2007-09-09 20:03:43
date| |
Summary|Passing structure component |Structure component arrays
|arrays as actual arguments |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33370
