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

--- Comment #4 from Martin Liška <marxin at gcc dot gnu.org> ---
Created attachment 47391
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=47391&action=edit
Reduced test-case

Fails with:

$ gfortran -O3 -march=znver2 mdbx.f90
mdbx.f90:9:16:

    9 |       PARAMETER NM=16384
      |                1
Warning: Legacy Extension: PARAMETER without '()' at (1)
mdbx.f90:12:18:

   12 |          DO j = 1,HD0         (i)
      |                  1
Warning: Deleted feature: End expression in DO loop at (1) must be integer
mdbx.f90:18:16:

   18 |       DO i = 1 , X0
      |                1
Warning: Deleted feature: End expression in DO loop at (1) must be integer
mdbx.f90:7:0:

    7 |       SUBROUTINE MSTEP
      | 
Error: position plus size exceeds size of referenced object in ‘bit_field_ref’
_13 = BIT_FIELD_REF <_68, 256, 0>;
during GIMPLE pass: forwprop
mdbx.f90:7:0: internal compiler error: verify_gimple failed
0xe9f031 verify_gimple_in_cfg(function*, bool)
        /home/marxin/Programming/gcc/gcc/tree-cfg.c:5445
0xd7a3ef execute_function_todo
        /home/marxin/Programming/gcc/gcc/passes.c:1983
0xd7b19e execute_todo
        /home/marxin/Programming/gcc/gcc/passes.c:2037
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <https://gcc.gnu.org/bugs/> for instructions.

Reply via email to