Merge branches/gcc-4_9-branch rev 225109.

[official-gcc.git] / gcc-4_9-branch / gcc / testsuite / gfortran.fortran-torture / compile / pr66251.f90

SUBROUTINE dbcsr_data_convert (n)
  COMPLEX(KIND=4), DIMENSION(:), POINTER :: s_data_c
  COMPLEX(KIND=8), DIMENSION(:), POINTER :: t_data_z
  t_data_z(1:n) = CMPLX(s_data_c(1:n), KIND=8)
  CALL foo()
END SUBROUTINE dbcsr_data_convert