[Bug fortran/82055] New: segfault compiling F2003 functionality: 4.9.3, 5.3.0 and 6.3.0

["wsawyer at cscs dot ch" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 82055
           Summary: segfault compiling F2003 functionality:  4.9.3, 5.3.0
                    and 6.3.0
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: wsawyer at cscs dot ch
  Target Milestone: ---

Created attachment 42092
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=42092&action=edit
Source file (preprocessed)

ftn -cpp -ffree-line-length-none -m64 -g -fbounds-check -fimplicit-none
-ffpe-trap=zero -O -march=native -ffast-math -std=f2003 -pedantic -g
-fbounds-check -Wall -fcheck=all -Wextra -fbacktrace -finit-real=nan
-save-temps '-DP(EX)=print *,"-->EX:",EX'  -c
../src/mo_gas_optics_specification.F90
../src/mo_gas_optics_specification.F90:908:75:

   function get_minor_list(this, gas_desc, ngas, names_spec, kminor_activity)
                                                                           1
Warning: Unused dummy argument 'kminor_activity' at (1)
[-Wunused-dummy-argument]
../src/mo_gas_optics_specification.F90:550:27:

     ncol, nlay, ngpt, nband, ngas, nflav,   &
                           1
Warning: Unused dummy argument 'nband' at (1) [-Wunused-dummy-argument]
../src/mo_gas_optics_specification.F90:534:0:

     minor_gas_list = this%get_minor_list(gas_desc, ngas, this%gas_names,
this%kminor_activity)

internal compiler error: Segmentation fault
0xacf70f crash_signal
        ../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/toplev.c:333
0x8963ce size_binop_loc(unsigned int, tree_code, tree_node*, tree_node*)
        ../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fold-const.c:1755
0x865ac7 get_inner_reference(tree_node*, long*, long*, tree_node**,
machine_mode*, int*, int*, int*, bool)
        ../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/expr.c:6966
0x897650 fold_unary_loc(unsigned int, tree_code, tree_node*, tree_node*)
        ../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fold-const.c:7807
0x897b19 fold_build1_stat_loc(unsigned int, tree_code, tree_node*, tree_node*)
        ../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fold-const.c:12494
0x7185f0 gfc_trans_string_copy(stmtblock_t*, tree_node*, tree_node*, int,
tree_node*, tree_node*, int)
       
../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fortran/trans-expr.c:6430
0x7189bd gfc_trans_scalar_assign(gfc_se*, gfc_se*, gfc_typespec, bool, bool)
       
../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fortran/trans-expr.c:8303
0x724f71 gfc_trans_assignment_1
       
../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fortran/trans-expr.c:9455
0x6eeba1 trans_code
       
../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fortran/trans.c:1680
0x71218c gfc_generate_function_code(gfc_namespace*)
       
../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fortran/trans-decl.c:6177
0x6f1e71 gfc_generate_module_code(gfc_namespace*)
       
../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fortran/trans.c:2058
0x6aa22d translate_all_program_units
       
../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fortran/parse.c:5897
0x6aa22d gfc_parse_file()
       
../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fortran/parse.c:6116
0x6ebcc2 gfc_be_parse_file
       
../../cray-gcc-6.3.0-201701050407.93fe37becc347/gcc/fortran/f95-lang.c:201
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <http://gcc.gnu.org/bugs.html> for instructions.
Makefile.rules:8: recipe for target 'mo_gas_optics_specification.o' failed
make: *** [mo_gas_optics_specification.o] Error 1