[Bug fortran/57117] ICE for sourced allocation of a UP entity that uses the transpose intrinsic

[dominiq at lps dot ens.fr]

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



Dominique d'Humieres <dominiq at lps dot ens.fr> changed:



           What    |Removed                     |Added

----------------------------------------------------------------------------

             Status|UNCONFIRMED                 |NEW

   Last reconfirmed|                            |2013-04-29

     Ever Confirmed|0                           |1



--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2013-04-29 
21:34:28 UTC ---

Confirmed. If I comment out the block



  call construct(x, 1)



  allocate(y(3,3), source=transpose(x))

  select type (y)

  type is(ti)

     if (y(3,1)%i /= 7) ok(5) = .false.

  class default

     ok(6) = .false.

  end select

  deallocate(y)  <--- it should be deallocate(x, y) otherwise call construct(x,

2) complains



then I get the following ICE



pr57117_db.f90: In function 'intr_02':

pr57117_db.f90:86:0: internal compiler error: in gfc_conv_procedure_call, at

fortran/trans-expr.c:4888

   allocate(z(9), source=reshape(x, (/ 9 /)))