[Bug fortran/86006] New: compile time error generic type bound procedure

[karl.may0 at freenet dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=86006

            Bug ID: 86006
           Summary: compile time error generic type bound procedure
           Product: gcc
           Version: 8.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: karl.may0 at freenet dot de
  Target Milestone: ---

This code:

Module Mod_LL_DT
  Implicit None
  Private
  Type, Public :: LLCont_DT
  contains
    Generic :: GetElement => GetElementByType,GetElementByPosition
    Procedure, PAss :: GetElementByType => SubGetElementByType
    Procedure, PAss :: GetElementByPosition => SubGetElementByPosition
  End type LLCont_DT
contains
  Subroutine SubGetElementByType(this,TSIn,TSOut)
    Implicit None
    Class(LLCont_DT), Intent(InOut) :: this
    Class(*), Intent(InOut), Pointer :: TSIn
    Class(*), Intent(Out), Pointer :: TSOut
  End Subroutine SubGetElementByType
  Subroutine SubGetElementByPosition(this,TSC,ISPos)
    Implicit None
    Class(LLCont_DT), Intent(InOut) :: this
    Class(*), Intent(InOut), Pointer :: TSC
    Integer*8, Intent(In) :: ISPos
  End Subroutine SubGetElementByPosition
End Module Mod_LL_DT

yields:

Generic :: GetElement => GetElementByType,GetElementByPosition
                            1
Error: ‘subgetelementbytype’ and ‘subgetelementbyposition’ for GENERIC
‘getelement’ at (1) are ambiguous

using compiler opiton:

gfortran -c tmp.f90

>From my understanding this should work. It also compiles without error with
other compilers (e.g. ifort)

Cheers