[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 <tapplencourt at anl dot gov> ---
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