[Bug fortran/33897] [4.1/4.2/4.3 Regression] Entries and modules

["pault at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #4 from pault at gcc dot gnu dot org  2007-10-26 09:36 -------
This gives the correct behaviour:

Index: gcc/fortran/decl.c
===================================================================
*** gcc/fortran/decl.c  (révision 129434)
--- gcc/fortran/decl.c  (copie de travail)
*************** gfc_match_entry (void)
*** 4376,4382 ****
    if (state == COMP_SUBROUTINE)
      {
        /* An entry in a subroutine.  */
!       if (!add_global_entry (name, 1))
        return MATCH_ERROR;

        m = gfc_match_formal_arglist (entry, 0, 1);
--- 4376,4382 ----
    if (state == COMP_SUBROUTINE)
      {
        /* An entry in a subroutine.  */
!       if (!gfc_current_ns->parent && !add_global_entry (name, 1))
        return MATCH_ERROR;

        m = gfc_match_formal_arglist (entry, 0, 1);
*************** gfc_match_entry (void)
*** 4398,4404 ****
            ENTRY f() RESULT (r)
         can't be written as
            ENTRY f RESULT (r).  */
!       if (!add_global_entry (name, 0))
        return MATCH_ERROR;

        old_loc = gfc_current_locus;
--- 4398,4404 ----
            ENTRY f() RESULT (r)
         can't be written as
            ENTRY f RESULT (r).  */
!       if (!gfc_current_ns->parent && !add_global_entry (name, 0))
        return MATCH_ERROR;

        old_loc = gfc_current_locus;

such that 

MODULE ksbin1_aux_mod
 CONTAINS
  SUBROUTINE nxtstg()
    INTEGER :: i
    INTEGER :: setbd
    i = setbd()  ! available by host association.
    write(6,*) i
  END SUBROUTINE nxtstg
  FUNCTION binden()
    INTEGER :: binden
    INTEGER :: setbd
    binden = 0
  ENTRY setbd()
    setbd = 99
  END FUNCTION binden
END MODULE ksbin1_aux_mod

PROGRAM test
  USE ksbin1_aux_mod, only : nxtstg
  integer setbd ! setbd is external, since not use assoc.
  CALL nxtstg()
  print *, setbd ()
  call foo
contains
  subroutine foo
    USE ksbin1_aux_mod ! module setbd is available
    print *, setbd ()
  end subroutine
END PROGRAM test

INTEGER FUNCTION setbd()
  setbd=42
END FUNCTION setbd

gives

          99
          42
          99

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2007-10-25 17:33:09         |2007-10-26 09:36:40
               date|                            |


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