[Bug fortran/93463] New: ICE in oacc_code_to_statement, at fortran/openmp.c:6007

[gs...@t-online.de]

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

            Bug ID: 93463
           Summary: ICE in oacc_code_to_statement, at
                    fortran/openmp.c:6007
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Combination of -fopenmp -fopenacc affects versions down to r5 :


$ cat z1.f90
program p
   integer :: i, x
   !$omp parallel do
   do i = 1, 4
      !$acc enter data create(x)
   end do
end


$ cat z2.f90
program p
   integer :: i, x
   !$omp parallel do
   do i = 1, 4
      !$acc cache(x)
   end do
end


$ cat z6.f90
program p
!$omp parallel
!$acc wait(1)
!$omp end parallel
end


$ cat z9.f90
program p
!$omp parallel
!$acc update self(a)
!$omp end parallel
end


$ gfortran-10-20200126 -c z1.f90 -fopenmp -fopenacc
f951: internal compiler error: in oacc_code_to_statement, at
fortran/openmp.c:6007
0x69037d oacc_code_to_statement
        ../../gcc/fortran/openmp.c:6007
0x6994a2 resolve_oacc_directive_inside_omp_region
        ../../gcc/fortran/openmp.c:6017
0x6994a2 gfc_resolve_oacc_directive(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/openmp.c:6333
0x6b719b gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:12047
0x6c6f2f gfc_resolve_blocks(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:10715
0x6b6d68 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:11678
0x6c6f2f gfc_resolve_blocks(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:10715
0x69908d gfc_resolve_omp_do_blocks(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/openmp.c:5533
0x69a61b gfc_resolve_omp_parallel_blocks(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/openmp.c:5586
0x6b6d54 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:11654
0x6b95e7 resolve_codes
        ../../gcc/fortran/resolve.c:17205
0x6b96ae gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:17240
0x6a7a0c resolve_all_program_units
        ../../gcc/fortran/parse.c:6244
0x6a7a0c gfc_parse_file()
        ../../gcc/fortran/parse.c:6491
0x6f265f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:210