! { dg-do compile }
|
! { dg-do compile }
|
! PR fortran/24545
|
! PR fortran/24545
|
MODULE Compare_Float_Numbers
|
MODULE Compare_Float_Numbers
|
|
|
IMPLICIT NONE
|
IMPLICIT NONE
|
|
|
INTERFACE Compare_Float
|
INTERFACE Compare_Float
|
MODULE PROCEDURE Compare_Float_Single
|
MODULE PROCEDURE Compare_Float_Single
|
END INTERFACE Compare_Float
|
END INTERFACE Compare_Float
|
|
|
INTERFACE OPERATOR (.EqualTo.)
|
INTERFACE OPERATOR (.EqualTo.)
|
MODULE PROCEDURE Is_Equal_To_Single
|
MODULE PROCEDURE Is_Equal_To_Single
|
END INTERFACE OPERATOR (.EqualTo.)
|
END INTERFACE OPERATOR (.EqualTo.)
|
|
|
CONTAINS
|
CONTAINS
|
|
|
FUNCTION Is_Equal_To_Single(x, y) RESULT(Equal_To)
|
FUNCTION Is_Equal_To_Single(x, y) RESULT(Equal_To)
|
REAL(4), INTENT(IN) :: x, y
|
REAL(4), INTENT(IN) :: x, y
|
LOGICAL :: Equal_To
|
LOGICAL :: Equal_To
|
Equal_To = .true.
|
Equal_To = .true.
|
END FUNCTION Is_Equal_To_Single
|
END FUNCTION Is_Equal_To_Single
|
|
|
FUNCTION Compare_Float_Single(x, y) RESULT(Compare)
|
FUNCTION Compare_Float_Single(x, y) RESULT(Compare)
|
REAL(4), INTENT(IN) :: x, y
|
REAL(4), INTENT(IN) :: x, y
|
LOGICAL :: Compare
|
LOGICAL :: Compare
|
Compare = .true.
|
Compare = .true.
|
END FUNCTION Compare_Float_Single
|
END FUNCTION Compare_Float_Single
|
|
|
END MODULE Compare_Float_Numbers
|
END MODULE Compare_Float_Numbers
|
|
|
! { dg-final { cleanup-modules "Compare_Float_Numbers" } }
|
! { dg-final { cleanup-modules "Compare_Float_Numbers" } }
|
|
|