gcc/testsuite/gfortran.dg/transfer_simplify_6.f90 - gcc - Git at Google

 ! { dg-do compile }
 ! Checks the fix for PR33733, in which the functions of arrays
 ! for the 'source' argument would cause an ICE.
 !
 ! Contributed by FX Coudert <fxcoudert@gcc.gnu.org>
 !
   print *, transfer(sqrt([100.]), 0_1)
   print *, transfer(achar([100]), 0_1)
 end
	! { dg-do compile }
	! Checks the fix for PR33733, in which the functions of arrays
	! for the 'source' argument would cause an ICE.
	!
	! Contributed by FX Coudert <fxcoudert@gcc.gnu.org>
	!
	print *, transfer(sqrt([100.]), 0_1)
	print *, transfer(achar([100]), 0_1)
	end