[Bug fortran/84779] New: [6/7/8 Regression] Compiling gfortran.fortran-torture/execute/entry_4.f90 with -O1 or -Os and -fdefault-integer-8 gives an ICE

[dominiq at lps dot ens.fr]

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

            Bug ID: 84779
           Summary: [6/7/8 Regression] Compiling
                    gfortran.fortran-torture/execute/entry_4.f90 with -O1
                    or -Os and -fdefault-integer-8 gives an ICE
           Product: gcc
           Version: 8.0.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: dominiq at lps dot ens.fr
  Target Milestone: ---

Compiling gfortran.fortran-torture/execute/entry_4.f90 with -O1 or -Os and
-fdefault-integer-8 gives an ICE for gcc4.9 up to trunk (8.0)

during RTL pass: expand
/opt/gcc/p_work/gcc/testsuite/gfortran.fortran-torture/execute/entry_4.f90:14:0:

  logical e2

internal compiler error: in gen_lowpart_general, at rtlhooks.c:63

The test compiles and runs with 4.8.5.

Reduced test

        complex function f2 (a)
        integer a
        logical e2
        entry e2 (a)
        if (a .gt. 0) then
          e2 = a .lt. 46
        else
          f2 = 45
        endif
        end function

        program entrytest
        logical e2
        complex f2
        print *, f2(0)
        if (f2 (0) .ne. 45) call abort ()
        if (.not. e2 (45)) call abort ()
        end