blob: d66cb12006e79cd36eff9ee2a657d9fe8f888adf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! 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
|