1! PR middle-end/85878
2
3program pr85878
4  real :: a
5  complex :: c = (2.0, 3.0)
6  print *, c
7  print *, transfer (a, c)
8end
9