blob: 56c7de5ebba47abf1d795e674303bc6ad1b2483a [file] [log] [blame]
! { dg-do compile }
!
! PR fortran/52864
!
! Assigning to an intent(in) pointer (which is valid).
!
program test
type PoisFFT_Solver3D
complex, dimension(:,:,:), &
pointer :: work => null()
end type PoisFFT_Solver3D
contains
subroutine PoisFFT_Solver3D_FullPeriodic(D, p)
type(PoisFFT_Solver3D), intent(in) :: D
real, intent(in), pointer :: p(:)
D%work(i,j,k) = 0.0
p = 0.0
end subroutine
end