如何判断两个无限多态变量相等

weixing1531 · 发表于 2019-9-26 20:36:03

本帖最后由 weixing1531 于 2019-9-27 10:40 编辑

这种方法好像很麻烦

[Fortran] 纯文本查看 复制代码

01program main
02  implicit none
03  write(*,*)EqualClass(1,2)
04  write(*,*)EqualClass(1,1)
05  write(*,*)EqualClass(1.0,1.001)
06  write(*,*)EqualClass(1.0,1.0)
07  write(*,*)EqualClass('abc','abcd')
08  write(*,*)EqualClass('abc','abc')
09  write(*,*)EqualClass(.true.,.false.)
10  write(*,*)EqualClass(.true.,.true.)
11contains
12pure logical function EqualClass(self, other)
13  class(*), intent(in) :: self
14  class(*), intent(in) :: other
15  EqualClass=.false. !初值为假
16 
17  select type(self)
18    type is(Integer)
19      select type(other)
20        type is(Integer)
21          EqualClass=(self==other)
22      end select
23    type is(Real)
24      select type(other)
25        type is(Real)
26          EqualClass=(abs(self-other)<1.0e-5)
27      end select
28    type is(Character(*))
29      select type(other)
30        type is(Character(*))
31          EqualClass=(self==other)
32      end select
33    type is(Logical)
34      select type(other)
35        type is(Logical)
36          EqualClass=(self.eqv.other)
37      end select
38  end select
39end function
40end program