This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/24545] gfortran bug regarding interface block with named END INTERFACE statements
- From: "kargl at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 26 Oct 2005 17:05:51 -0000
- Subject: [Bug fortran/24545] gfortran bug regarding interface block with named END INTERFACE statements
- References: <bug-24545-11597@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #1 from kargl at gcc dot gnu dot org 2005-10-26 17:05 -------
Here's a reduced code that shows the problem. Gfortran is
not handling the END INTERFACE OPERATOR (.EqualTo.) correctly.
This confuses the heck out of the error recovery code.
MODULE Compare_Float_Numbers
IMPLICIT NONE
INTERFACE Compare_Float
MODULE PROCEDURE Compare_Float_Single
END INTERFACE Compare_Float
INTERFACE OPERATOR (.EqualTo.)
MODULE PROCEDURE Is_Equal_To_Single
END INTERFACE OPERATOR (.EqualTo.)
CONTAINS
FUNCTION Is_Equal_To_Single(x, y) RESULT(Equal_To)
REAL(4), INTENT(IN) :: x, y
LOGICAL :: Equal_To
Equal_To = .true.
END FUNCTION Is_Equal_To_Single
FUNCTION Compare_Float_Single(x, y) RESULT(Compare)
REAL(4), INTENT(IN) :: x, y
LOGICAL :: Compare
Compare = .true.
END FUNCTION Compare_Float_Single
END MODULE Compare_Float_Numbers
--
kargl at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu dot org
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2005-10-26 17:05:50
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24545