[Bug fortran/70040] New: ICE in gimplify.c with deferred-length strings

[martin@mpa-garching.mpg.de]

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

            Bug ID: 70040
           Summary: ICE in gimplify.c with deferred-length strings
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: martin@mpa-garching.mpg.de
  Target Milestone: ---
              Host: x86_64-pc-linux-gnu
            Target: x86_64-pc-linux-gnu
             Build: x86_64-pc-linux-gnu

Created attachment 37841
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=37841&action=edit
test case

Current trunk reports an ICE with the attached test case:

gfortran -v test.f08
Driving: gfortran -v test.f08 -l gfortran -l m -shared-libgcc
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/scratch/martin/utrunk/libexec/gcc/x86_64-pc-linux-gnu/6.0.0/lto-wrapper
Target: x86_64-pc-linux-gnu
Configured with: /scratch/martin/gccgit/configure --disable-bootstrap
--prefix=/scratch/martin/utrunk --enable-languages=c++,fortran
--enable-target=all --enable-checking=release
Thread model: posix
gcc version 6.0.0 20160302 (experimental) [trunk revision
dd4bd26:0fb01c5:a2cc9e8e2c74db1cdaa9269cde65d0a24f38cabe] (GCC) 
COLLECT_GCC_OPTIONS='-v' '-shared-libgcc' '-mtune=generic' '-march=x86-64'
 /scratch/martin/utrunk/libexec/gcc/x86_64-pc-linux-gnu/6.0.0/f951 test.f08
-quiet -dumpbase test.f08 -mtune=generic -march=x86-64 -auxbase test -version
-fintrinsic-modules-path
/scratch/martin/utrunk/lib/gcc/x86_64-pc-linux-gnu/6.0.0/finclude -o
/tmp/ccL8StDt.s
GNU Fortran (GCC) version 6.0.0 20160302 (experimental) [trunk revision
dd4bd26:0fb01c5:a2cc9e8e2c74db1cdaa9269cde65d0a24f38cabe] (x86_64-pc-linux-gnu)
        compiled by GNU C version 5.2.0, GMP version 5.1.3, MPFR version 3.1.3,
MPC version 1.0.3, isl version none
GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
GNU Fortran2008 (GCC) version 6.0.0 20160302 (experimental) [trunk revision
dd4bd26:0fb01c5:a2cc9e8e2c74db1cdaa9269cde65d0a24f38cabe] (x86_64-pc-linux-gnu)
        compiled by GNU C version 5.2.0, GMP version 5.1.3, MPFR version 3.1.3,
MPC version 1.0.3, isl version none
GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
test.f08:34:0:

     sourceType(j)%s = sourceType(l-1)%s

internal compiler error: in gimplify_expr, at gimplify.c:11098
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.