[Bug fortran/95467] ICE in parse_omp_structured_block: OpenMP Offload (target_parallel__simd)

[tapplencourt at anl dot gov]

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

--- Comment #3 from Thomas Applencorut  ---
Yes, it's indeed working. It's because I made a typo in the reproducer. I
Didn't copy the version who produce the ICE (should have been !$OMP END TARGET
PARALLEL and not !$OMP END PARALLEL). Sorry about that...

Please find below the correct version (the one who produce an ICE) bellow:


PROGRAM target_parallel__simd
USE OMP_LIB
implicit none
INTEGER :: i
INTEGER :: counter
!$OMP TARGET PARALLEL MAP(TOFROM: counter)
!$OMP SIMD
DO i = 1 , 262144
counter = 1
END DO
!$OMP END TARGET PARALLEL
END PROGRAM target_parallel__simd

And to compile, it's indeed:

gfortran -fopenmp target_parallel__simd.F90

Thanks a lot for looking at it,
Thomas

[Bug fortran/95467] New: ICE in parse_omp_structured_block: OpenMP Offload (target_parallel__simd)

[tapplencourt at anl dot gov]

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

Bug ID: 95467
   Summary: ICE in parse_omp_structured_block: OpenMP Offload
(target_parallel__simd)
   Product: gcc
   Version: lto
Status: UNCONFIRMED
  Severity: normal
  Priority: P3
 Component: fortran
  Assignee: unassigned at gcc dot gnu.org
  Reporter: tapplencourt at anl dot gov
  Target Milestone: ---

Created attachment 48656
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=48656=edit
compilation.log

Hi, 

The following F90 OpenMP code causea ICE (see log attached): 


PROGRAM target_parallel__simd
USE OMP_LIB
implicit none
INTEGER :: i
INTEGER :: counter
!$OMP TARGET PARALLEL MAP(TOFROM: counter)
!$OMP SIMD
DO i = 1 , 262144
counter = 1
END DO
!$OMP END PARALLEL
END PROGRAM target_parallel__simd

I was able to reproduce it on GCC9.2 and GCC10.0

Don't hesitation if you have any question,
Regards,
Thomas