[Bug fortran/33897] Should an ENTRY in a contained function be visible from another contained routine?

["jv244 at cam dot ac dot uk" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #1 from jv244 at cam dot ac dot uk  2007-10-25 17:33 -------
this is a slightly modified testcase, which g95, NAG f95, IBM xlf90, ifort,
pgf90 all compile & link while it fails to compile with gfortran. The error
message by gfortran (Global name 'setbd' at (1) is already being used as a
FUNCTION at (2)) suggests gfortran has a problem.

Interestingly, it returns 1 with g95, NAG f95, IBM xlf90, pgf90 and 0 with
ifort.

MODULE ksbin1_aux_mod
 CONTAINS
  SUBROUTINE nxtstg()
    INTEGER :: i
    INTEGER :: setbd
    i = setbd()
    write(6,*) i
  END SUBROUTINE nxtstg
  FUNCTION binden()
    INTEGER :: binden
    INTEGER :: setbd
    binden = 0
  ENTRY setbd()
    setbd = 0
  END FUNCTION binden
END MODULE ksbin1_aux_mod
PROGRAM test
  USE ksbin1_aux_mod
  CALL nxtstg()
END PROGRAM test
INTEGER FUNCTION setbd()
  setbd=1
END FUNCTION setbd

A simpler testcase is:
MODULE M1
CONTAINS
 SUBROUTINE S2()
    ENTRY E2()
    write(6,*) 'C'
 END SUBROUTINE S2
END MODULE M1

SUBROUTINE S2()
    ENTRY E2()
    write(6,*) 'E'
END SUBROUTINE S2


-- 

jv244 at cam dot ac dot uk changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |32834
              nThis|                            |
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2007-10-25 17:33:09
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33897