1! { dg-do compile } 2 3CONTAINS 4SUBROUTINE send_forward () 5 6 INTEGER, DIMENSION(3) :: lz, ub, uz 7 REAL, ALLOCATABLE, DIMENSION(:, :, :) :: buffer 8 COMPLEX, DIMENSION ( :, :, : ), POINTER :: cc3d 9 10 cc3d ( lz(1):uz(1), lz(2):uz(2), lz(3):uz(3) ) = & 11 CMPLX ( buffer ( lz(1):uz(1), lz(2):uz(2), lz(3):uz(3) ), & 12 KIND = SELECTED_REAL_KIND ( 14, 200 ) ) 13 14END SUBROUTINE send_forward 15END 16 17