[Bug fortran/118884] [15 regression] lapack fails to compile (Error: Type mismatch at (1) passing global function ‘cslect’ declared at (2) (UNKNOWN/LOGICAL(4)))

[tkoenig at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #8 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Hmm.. .the type should not be BT_UNKNOWN.

Reduced test caes:

      SUBROUTINE CGET24
      EXTERNAL CSLECT
      LOGOCAL CSLECT

      CALL CGEESX(CSLECT)
      IF (CSLECT() KNTEIG = KNTEIG + 1
      CALL CGEESX(CSLECT)
      END