test/fixture/fortran_unittests/test_2.f90

   1 module test_2
   2
   3   type test_type_2
   4     integer :: m
   5     contains
   6       procedure :: set_m
   7       procedure :: get_m
   8       procedure :: increment_m
   9       procedure :: decrement_m
  10   end type test_type_2
  11
  12
  13 interface
  14
  15   module subroutine set_m ( this, m )
  16     class(test_type_2), intent(inout) :: this
  17     integer, intent(in) :: m
  18   end subroutine
  19
  20   module function get_m ( this )
  21     class(test_type_2), intent(in) :: this
  22     integer :: get_m
  23   end function get_m
  24
  25   module pure subroutine increment_m ( this )
  26     class(test_type_2), intent(inout) :: this
  27   end subroutine increment_m
  28
  29   module elemental subroutine decrement_m ( this )
  30     class(test_type_2), intent(inout) :: this
  31   end subroutine decrement_m
  32
  33 end interface
  34
  35 end module test_2
  36
  37
  38 submodule(test_2) test_2_impl
  39
  40 contains
  41
  42   module procedure set_m
  43
  44     implicit none
  45
  46     this%m = m
  47   end procedure set_m
  48
  49   module procedure get_m
  50
  51     implicit none
  52
  53     get_m = this%m
  54   end procedure get_m
  55
  56   module procedure increment_m
  57
  58     implicit none
  59
  60     this%m = this%m+1
  61   end procedure increment_m
  62
  63   module procedure decrement_m
  64
  65     implicit none
  66
  67     this%m = this%m-1
  68   end procedure decrement_m
  69
  70 end submodule test_2_impl