Bug 57095 - [Fortran-Dev] FAIL: gfortran.dg/alloc_comp_assign_[234].f90 -O* execution test
Summary: [Fortran-Dev] FAIL: gfortran.dg/alloc_comp_assign_[234].f90 -O* execution test
Status: RESOLVED DUPLICATE of bug 57090
Alias: None
Product: gcc
Classification: Unclassified
Component: fortran (show other bugs)
Version: fortran-dev
: P3 normal
Target Milestone: ---
Assignee: Not yet assigned to anyone
URL:
Keywords:
Depends on:
Blocks: 56818
  Show dependency treegraph
 
Reported: 2013-04-27 22:01 UTC by Dominique d'Humieres
Modified: 2013-04-30 11:35 UTC (History)
1 user (show)

See Also:
Host:
Target:
Build:
Known to work:
Known to fail:
Last reconfirmed:


Attachments

Note You need to log in before you can comment on or make changes to this bug.
Description Dominique d'Humieres 2013-04-27 22:01:31 UTC
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=... .
Comment 1 Dominique d'Humieres 2013-04-30 11:35:06 UTC
Fixed by revision 198440. Marked as a duplicate of 57090.

*** This bug has been marked as a duplicate of bug 57090 ***