111
|
1 ! { dg-do compile }
|
|
2 ! PR fortran/24545
|
|
3 MODULE Compare_Float_Numbers
|
|
4
|
|
5 IMPLICIT NONE
|
|
6
|
|
7 INTERFACE Compare_Float
|
|
8 MODULE PROCEDURE Compare_Float_Single
|
|
9 END INTERFACE Compare_Float
|
|
10
|
|
11 INTERFACE OPERATOR (.EqualTo.)
|
|
12 MODULE PROCEDURE Is_Equal_To_Single
|
|
13 END INTERFACE OPERATOR (.EqualTo.)
|
|
14
|
|
15 CONTAINS
|
|
16
|
|
17 FUNCTION Is_Equal_To_Single(x, y) RESULT(Equal_To)
|
|
18 REAL(4), INTENT(IN) :: x, y
|
|
19 LOGICAL :: Equal_To
|
|
20 Equal_To = .true.
|
|
21 END FUNCTION Is_Equal_To_Single
|
|
22
|
|
23 FUNCTION Compare_Float_Single(x, y) RESULT(Compare)
|
|
24 REAL(4), INTENT(IN) :: x, y
|
|
25 LOGICAL :: Compare
|
|
26 Compare = .true.
|
|
27 END FUNCTION Compare_Float_Single
|
|
28
|
|
29 END MODULE Compare_Float_Numbers
|