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

["michael dot a dot richmond at nasa dot gov" <gcc-bugzilla at gcc dot gnu dot org>]

gfortran links the following without error, whereas Compaq Fortran, Lahey
Fortran, and g95 tell me that setbd is an unresolved external.

MODULE ksbin1_aux_mod
 CONTAINS
  SUBROUTINE nxtstg() 
    INTEGER :: i
    INTEGER :: setbd 
    i = setbd()
  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
END PROGRAM test


-- 
           Summary: Should an ENTRY in a contained function be visible from
                    another contained routine?
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: michael dot a dot richmond at nasa dot gov


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