Bug in gfortran with ENTRY

[Arjen Markus]

Hello,

I found a bug in gfortran (version 4.3.0 20070816 experimental, to be 
precise, on Linux) regarding the
following source code:


module gsub
contains

subroutine sub( g )
    interface
        real function g(x)
        real x
        end function
    end interface
    real :: x, y

    call mysub( glocal )

    return

entry glocal( x, y )

    y = x

end subroutine

end module

The error message is:

entry glocal( x, y )
           1
Internal Error at (1):
insert_bbt(): Duplicate key found!

This does not happen if the subroutine is outside a module. While the 
ENTRY statement
has its own set of quirks, and the context in which I tried to use it 
was non-standard (and
only a small experiment - I never use it otherwise), the compiler should 
not produce an
internal error, IMHO.

Kind regards,

Arjen Markus