[Bug fortran/88377] New: ICE in gfc_omp_clause_copy_ctor, at fortran/trans-openmp.c:614

[gscfq@t-online.de]

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

            Bug ID: 88377
           Summary: ICE in gfc_omp_clause_copy_ctor, at
                    fortran/trans-openmp.c:614
           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: ---

Affects versions down to at least gfortran-5 :


$ cat z1.f90
program p
   call s(3)
contains
   subroutine s(n)
      integer :: n
      character(n), allocatable :: x
      x = 'abc'
      !$omp task
      print *, x, (x == 'abc')
      !$omp end task
   end
end


$ gfortran-9-20181202 z1.f90 -static-libgfortran
$ a.out
 abc T


$ gfortran-9-20181202 -c z1.f90 -fopenmp
during GIMPLE pass: omplower
z1.f90:8:0:

    8 |       !$omp task
      |
internal compiler error: Segmentation fault
0xb2ec9f crash_signal
        ../../gcc/toplev.c:326
0x72193c gfc_omp_clause_copy_ctor(tree_node*, tree_node*, tree_node*)
        ../../gcc/fortran/trans-openmp.c:614
0xa3b08f lower_rec_input_clauses
        ../../gcc/omp-low.c:4880
0xa3eb36 lower_omp_taskreg
        ../../gcc/omp-low.c:8965
0xa346b6 lower_omp_1
        ../../gcc/omp-low.c:10405
0xa346b6 lower_omp
        ../../gcc/omp-low.c:10495
0xa35529 lower_omp_1
        ../../gcc/omp-low.c:10331
0xa35529 lower_omp
        ../../gcc/omp-low.c:10495
0xa3544e lower_omp_1
        ../../gcc/omp-low.c:10339
0xa3544e lower_omp
        ../../gcc/omp-low.c:10495
0xa3929b execute_lower_omp
        ../../gcc/omp-low.c:10537
0xa3929b execute
        ../../gcc/omp-low.c:10584