[Bug tree-optimization/122138] [16 regression] ICE when building lapack-3.12.1

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

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

--- Comment #1 from Sam James <sjames at gcc dot gnu.org> ---
      SUBROUTINE a( d)
      REAL               d( * )
      LOGICAL            c
      c = .FALSE.
      IF( b.EQ.0 ) THEN
         DO 10 I = 1, 100
            IF( d( I ).EQ.f )
     $         c = .TRUE.
   10    CONTINUE
      END IF
      IF( c ) THEN
         CALL  IF
      END IF
      END