! Verify we elide modulo operations we cannot represent module OPMATRIX_MODULE implicit none type opmatrix_type real(kind=kind(1.0d0)), dimension(:,:), pointer :: restricted end type interface zero_ module procedure zero end interface contains subroutine zero(self) type(opmatrix_type) :: self self%restricted = 0.0d0 end subroutine end