[Bug fortran/17298] New: gfortran ICE: Not Implemented: Scalarization of non-elemental intrinsic: __transfer1

["anlauf at hep dot tu-darmstadt dot de" <gcc-bugzilla at gcc dot gnu dot org>]

Howdy,

here's another unimplemented Fortran 90 feature:

program gfcbug7
  implicit none
  integer, parameter  :: int   = selected_int_kind(9)
  integer, parameter  :: byte  = selected_int_kind(2)
  integer, parameter  :: n     = bit_size (1_int) / bit_size (1_byte)
  integer (kind=int)  :: input = 1 + 256 + 256**2 + 256**3
  integer (kind=byte) :: bytes(n)
  print *, 'input: ', input
  bytes = transfer (source=input, mold=bytes)
  ! For input = 16843009 (see above) and n=4, the result should be four ones,
  ! independent of the endian-ness of the architecture:
  print *, 'bytes:', bytes(1:n)
end program gfcbug7

which gives:

% gfortran -static gfcbug7.f90
gfcbug7.f90: In function `MAIN__':
gfcbug7.f90:9: fatal error: gfc_todo: Not Implemented: Scalarization of
non-elemental intrinsic: __transfer1
compilation terminated.

Cheers,
-ha

-- 
           Summary: gfortran ICE: Not Implemented: Scalarization of non-
                    elemental intrinsic: __transfer1
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at hep dot tu-darmstadt dot de
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


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