diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/compile/pr66251.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/compile/pr66251.f90 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/pr66251.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/pr66251.f90 new file mode 100644 index 0000000000..f5b04bc839 --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/compile/pr66251.f90 @@ -0,0 +1,7 @@ +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 + |