gcc/testsuite/gfortran.dg/transfer_simplify_5.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR32689, in which the TRANSFER with MOLD
   3 ! an array variable, as below, did not simplify.
   4 !
   5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
   6 !
   7 program gfcbug67
   8   implicit none
   9
  10   type mytype
  11      integer, pointer :: i(:) => NULL ()
  12   end type mytype
  13   type(mytype) :: t
  14
  15   print *, size (transfer (1, t% i))
  16 end program gfcbug67