[Bug fortran/85701] New: ICE in mark_scope_block_unused, at tree-ssa-live.c:364

[gscfq@t-online.de]

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

            Bug ID: 85701
           Summary: ICE in mark_scope_block_unused, at tree-ssa-live.c:364
           Product: gcc
           Version: 9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

With invalid code (s is not a variable) (but compiles with -g) :


$ cat z1.f90
subroutine s
   !$acc declare copy(s)
end


$ cat z2.f90
subroutine s
   !$acc declare present(s)
end


$ gfortran-9-20180506 -c z1.f90 -fopenacc -O0 -g
$
$ gfortran-9-20180506 -c z1.f90 -fopenacc -O0
during RTL pass: expand
z1.f90:1:0:

 subroutine s

internal compiler error: Segmentation fault
0xb9e99f crash_signal
        ../../gcc/toplev.c:325
0x7fca10 clear_tree_used
        ../../gcc/cfgexpand.c:1725
0x80881a expand_used_vars
        ../../gcc/cfgexpand.c:2052
0x80a922 execute
        ../../gcc/cfgexpand.c:6292


$ gfortran-9-20180506 -c z1.f90 -fopenacc -O1
during GIMPLE pass: ssa
z1.f90:1:0:

 subroutine s

internal compiler error: Segmentation fault
0xb9e99f crash_signal
        ../../gcc/toplev.c:325
0xc9c6c1 mark_scope_block_unused
        ../../gcc/tree-ssa-live.c:364
0xc9c6ef mark_scope_block_unused
        ../../gcc/tree-ssa-live.c:368
0xc9d5c1 remove_unused_locals()
        ../../gcc/tree-ssa-live.c:719
0xada764 execute_function_todo
        ../../gcc/passes.c:1972
0xadb0a9 execute_todo
        ../../gcc/passes.c:2048