diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/cmplx_intrinsic_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/cmplx_intrinsic_1.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/cmplx_intrinsic_1.f90 b/gcc/testsuite/gfortran.dg/cmplx_intrinsic_1.f90 new file mode 100644 index 000000000..bc4b9dfb2 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/cmplx_intrinsic_1.f90 @@ -0,0 +1,16 @@ +! { dg-do compile } + +CONTAINS +SUBROUTINE send_forward () + + INTEGER, DIMENSION(3) :: lz, ub, uz + REAL, ALLOCATABLE, DIMENSION(:, :, :) :: buffer + COMPLEX, DIMENSION ( :, :, : ), POINTER :: cc3d + + cc3d ( lz(1):uz(1), lz(2):uz(2), lz(3):uz(3) ) = & + CMPLX ( buffer ( lz(1):uz(1), lz(2):uz(2), lz(3):uz(3) ), & + KIND = SELECTED_REAL_KIND ( 14, 200 ) ) + +END SUBROUTINE send_forward +END + |