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