public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/57095] New: [Fortran-Dev] FAIL: gfortran.dg/alloc_comp_assign_[234].f90 -O* execution test
@ 2013-04-27 22:01 dominiq at lps dot ens.fr
2013-04-30 11:35 ` [Bug fortran/57095] " dominiq at lps dot ens.fr
0 siblings, 1 reply; 2+ messages in thread
From: dominiq at lps dot ens.fr @ 2013-04-27 22:01 UTC (permalink / raw)
To: gcc-bugs
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57095
Bug #: 57095
Summary: [Fortran-Dev] FAIL:
gfortran.dg/alloc_comp_assign_[234].f90 -O*
execution test
Classification: Unclassified
Product: gcc
Version: fortran-dev
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned@gcc.gnu.org
ReportedBy: dominiq@lps.ens.fr
CC: burnus@gcc.gnu.org
Blocks: 56818
When compiled with the fortran-dev branch, the tests
gfortran.dg/alloc_comp_assign_[234].f90, pr43808.f90, and
realloc_on_assign_17.f90 fail at run time. Reduced tests:
type :: a
integer, allocatable :: i(:)
end type a
type :: b
type (a), allocatable :: at(:)
end type b
type(a) :: x(2)
type(b) :: y(2), z(2)
integer i, m(4)
x = (/a ((/1,2,3,4/)),a ((/5,6,7,8/))/)
print *, x(1)%i, x(2)%i
print *, "after x"
y(1) = b ((/x(i)/))
print *, "after 2"
end
fails at y(1) = b ((/x(i)/)), and
program allocate_assign
implicit none
type label
integer, allocatable :: parts(:)
end type label
type table
type(label), allocatable :: headers(:)
end type table
type(table) x1(2)
integer i, j!, k
x1 = [table([(label([(j,j=1,3)]),i=1,3)]), &
table([(label([(j,j=1,4)]),i=1,4)])]
end program allocate_assign
fails at x1=... .
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2013-04-30 11:35 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2013-04-27 22:01 [Bug fortran/57095] New: [Fortran-Dev] FAIL: gfortran.dg/alloc_comp_assign_[234].f90 -O* execution test dominiq at lps dot ens.fr
2013-04-30 11:35 ` [Bug fortran/57095] " dominiq at lps dot ens.fr
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).