[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 #9 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
(In reply to Thomas Koenig from comment #8)
> 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

Typo...

      SUBROUTINE CGET24
      EXTERNAL CSLECT
      LOGICAL CSLECT

      CALL CGEESX(CSLECT)
      IF( CSLECT() ) print *,"foo"
      CALL CGEESX(CSLECT)
      END