numpy/f2py/tests/src/crackfortran/gh23533.f

      SUBROUTINE EXAMPLE( )
        IF( .TRUE. ) THEN
            CALL DO_SOMETHING()
        END IF ! ** .TRUE. **
      END