PR middle-end/85878
[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / compile / pr85878.f90
blobe52e95faa007c9a1f9008152c08836634bbe01a1
1 ! PR middle-end/85878
3 program pr85878
4 real :: a
5 complex :: c = (2.0, 3.0)
6 print *, c
7 print *, transfer (a, c)
8 end