test_return_logical

Module Contents

class TestReturnLogical

Bases:util.F2PyTest

check_function(self, t)
class TestF77ReturnLogical

Bases:test_return_logical.TestReturnLogical

code = function t0(value) logical value logical t0 t0 = value end function t1(value) logical*1 value logical*1 t1 t1 = value end function t2(value) logical*2 value logical*2 t2 t2 = value end function t4(value) logical*4 value logical*4 t4 t4 = value end

c function t8(value) c logical*8 value c logical*8 t8 c t8 = value c end

subroutine s0(t0,value)
logical value logical t0
cf2py intent(out) t0
t0 = value

end subroutine s1(t1,value)

logical*1 value logical*1 t1
cf2py intent(out) t1
t1 = value

end subroutine s2(t2,value)

logical*2 value logical*2 t2
cf2py intent(out) t2
t2 = value

end subroutine s4(t4,value)

logical*4 value logical*4 t4
cf2py intent(out) t4
t4 = value

end

c subroutine s8(t8,value) c logical*8 value c logical*8 t8 cf2py intent(out) t8 c t8 = value c end

test_all(self)
class TestF90ReturnLogical

Bases:test_return_logical.TestReturnLogical

suffix = .f90
code =
module f90_return_logical
contains
function t0(value)
logical :: value logical :: t0 t0 = value

end function t0 function t1(value)

logical(kind=1) :: value logical(kind=1) :: t1 t1 = value

end function t1 function t2(value)

logical(kind=2) :: value logical(kind=2) :: t2 t2 = value

end function t2 function t4(value)

logical(kind=4) :: value logical(kind=4) :: t4 t4 = value

end function t4 function t8(value)

logical(kind=8) :: value logical(kind=8) :: t8 t8 = value

end function t8

subroutine s0(t0,value)
logical :: value logical :: t0
!f2py intent(out) t0
t0 = value

end subroutine s0 subroutine s1(t1,value)

logical(kind=1) :: value logical(kind=1) :: t1
!f2py intent(out) t1
t1 = value

end subroutine s1 subroutine s2(t2,value)

logical(kind=2) :: value logical(kind=2) :: t2
!f2py intent(out) t2
t2 = value

end subroutine s2 subroutine s4(t4,value)

logical(kind=4) :: value logical(kind=4) :: t4
!f2py intent(out) t4
t4 = value

end subroutine s4 subroutine s8(t8,value)

logical(kind=8) :: value logical(kind=8) :: t8
!f2py intent(out) t8
t8 = value

end subroutine s8

end module f90_return_logical

test_all(self)