[Bug fortran/82009] New: ICE with block construct

[valeryweber at hotmail dot com]

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

            Bug ID: 82009
           Summary: ICE with block construct
           Product: gcc
           Version: 7.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: valeryweber at hotmail dot com
  Target Milestone: ---

hi all

the following code is ICEing with gcc 7.2.0

thanks

v

cat sparse_matrix_csx_benchmark_utils.F90
MODULE sparse_matrix_csx_benchmark_utils
  IMPLICIT NONE
CONTAINS  
  SUBROUTINE sparse_matrix_csr_benchmark ( )
    WRITE(*,*) 'At*x: t'
    block
      integer, dimension(1), parameter :: idxs=[1]
      integer :: i, idx
      do i = 1, size(idxs)
         idx = idxs(i)
      enddo
    end block
  END SUBROUTINE sparse_matrix_csr_benchmark
  SUBROUTINE sparse_matrix_csc_benchmark ( )
    WRITE(*,*) 'An*x: t'
    block
      integer, dimension(1), parameter :: idxs=[1]
      integer :: i, idx
      do i = 1, size(idxs)
         idx = idxs(i)
      enddo
    end block
  END SUBROUTINE sparse_matrix_csc_benchmark
END MODULE sparse_matrix_csx_benchmark_utils


gfortran-7.2.0 -c  sparse_matrix_csx_benchmark_utils.F90
sparse_matrix_csx_benchmark_utils.F90:6:0:

     block

internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6626
0x6c3fd6 gfc_process_block_locals(gfc_namespace*)
        ../../gcc-7.2.0/gcc/fortran/trans-decl.c:6626
0x710d60 gfc_trans_block_construct(gfc_code*)
        ../../gcc-7.2.0/gcc/fortran/trans-stmt.c:1812
0x6a73a7 trans_code
        ../../gcc-7.2.0/gcc/fortran/trans.c:1913
0x6cc9ac gfc_generate_function_code(gfc_namespace*)
        ../../gcc-7.2.0/gcc/fortran/trans-decl.c:6332
0x6aae21 gfc_generate_module_code(gfc_namespace*)
        ../../gcc-7.2.0/gcc/fortran/trans.c:2195
0x6611bd translate_all_program_units
        ../../gcc-7.2.0/gcc/fortran/parse.c:6061
0x6611bd gfc_parse_file()
        ../../gcc-7.2.0/gcc/fortran/parse.c:6274
0x6a473f gfc_be_parse_file
        ../../gcc-7.2.0/gcc/fortran/f95-lang.c:204
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.