[Bug fortran/124669] New: [openmp] ice during GIMPLE pass: omplower

[dcb314 at hotmail dot com]

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

            Bug ID: 124669
           Summary: [openmp] ice during GIMPLE pass: omplower
           Product: gcc
           Version: 16.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: dcb314 at hotmail dot com
  Target Milestone: ---

The following F90 source code:

 integer :: t1, t2, t3, s1,s2,s3
 integer,allocatable:: a(:), b(:), c(:)
!$omp threadprivate(a,b,c,t1,t2,t3)
 t1=2
 t2=2
 t3=2
 s1=3
 s2=3
 s3=3
!$omp parallel copyin(a,t1)
allocate(a(t1))
a=s1
!$omp end parallel
!$omp parallel copyin(b,t2)
allocate(b(t2))
b=s2
!$omp end parallel
!$omp parallel copyin(c,t3)
allocate(c(t3))
c=s3
!$omp end parallel
if (a(1).ne.b(1)) write(6,*) "NG"
if (b(2).ne.c(2)) write(6,*) "NG"
if (a(1).ne.c(2)) write(6,*) "NG"
print *,'pass'
end

from the fujitsu test suite on github.com,
when compiled by recent gfortran, doesn't go at all well:

 $ ~/gcc/results/bin/gfortran -c -w -fopenmp trunk/Fortran/0979/0979_0139.f90
during GIMPLE pass: omplower
trunk/Fortran/0979/0979_0139.f90:10:27:

   10 | !$omp parallel copyin(a,t1)
      |                           ^
internal compiler error: in install_var_field, at omp-low.cc:806
0x668d123 internal_error(char const*, ...)
        ../../trunk/gcc/diagnostic-global-context.cc:787
0x345367 fancy_abort(char const*, int, char const*)
        ../../trunk/gcc/diagnostics/context.cc:1813
0x20cedef install_var_field
        ../../trunk/gcc/omp-low.cc:806

This is on ARM 32:

$ ~/gcc/results/bin/gfortran -v
Using built-in specs.
COLLECT_GCC=/home/dcb/gcc/results/bin/gfortran
COLLECT_LTO_WRAPPER=/home/dcb/gcc/results.20260324.ubsan/libexec/gcc/arm-linux-gnueabihf/16.0.1/lto-wrapper
Target: arm-linux-gnueabihf
Configured with: ../trunk/configure
--prefix=/home/dcb/gcc/results.20260324.ubsan --disable-doc --disable-multilib
--with-build-config=bootstrap-ubsan --with-pkgversion=c4fe97077571e183
--enable-checking=yes --enable-languages=c,c++,fortran --with-cpu=cortex-a76
--with-fpu=neon-fp-armv8 --with-float=hard --build=arm-linux-gnueabihf
--host=arm-linux-gnueabihf --target=arm-linux-gnueabihf
Thread model: posix
Supported LTO compression algorithms: zlib
gcc version 16.0.1 20260324 (experimental) (c4fe97077571e183) 
$