https://gcc.gnu.org/bugzilla/show_bug.cgi?id=108450
Bug ID: 108450
Summary: [12/13 Regression] ICE in sort_actual, at
fortran/intrinsic.cc:4380
Product: gcc
Version: 13.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
Started between 20211128 and 20211205 :
$ cat z1.f90
program p
integer :: a(8) = 0
integer :: l
integer :: n
!$omp atomic
n = maxloc(a, mask=l)
end
$ cat z2.f90
program p
integer :: a(8) = 0
logical :: l
integer :: n(1)
!$omp atomic
n = maxloc(a, mask=l)
end
$ gfortran-13-20230115 -c z2.f90 -fopenmp
z2.f90:6:3:
6 | n = maxloc(a, mask=l)
| 1
Error: !$OMP ATOMIC statement must set a scalar variable of intrinsic type at
(1)
$ gfortran-13-20230115 -c z1.f90 -fopenmp
z1.f90:6:22:
6 | n = maxloc(a, mask=l)
| 1
Error: 'mask' argument of 'maxloc' intrinsic at (1) must be LOGICAL
f951: internal compiler error: Segmentation fault
0xf8734f crash_signal
../../gcc/toplev.cc:314
0x84f083 sort_actual
../../gcc/fortran/intrinsic.cc:4380
0x84f2d4 check_specific
../../gcc/fortran/intrinsic.cc:4774
0x8574c4 gfc_intrinsic_func_interface(gfc_expr*, int)
../../gcc/fortran/intrinsic.cc:5042
0x8aeb18 resolve_unknown_f
../../gcc/fortran/resolve.cc:2990
0x8aeb18 resolve_function
../../gcc/fortran/resolve.cc:3347
0x8aeb18 gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.cc:7195
0x8806a4 resolve_omp_atomic
../../gcc/fortran/openmp.cc:8699
0x88de6c gfc_resolve_omp_directive(gfc_code*, gfc_namespace*)
../../gcc/fortran/openmp.cc:10190
0x8b48ab gfc_resolve_code(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.cc:12444
0x8b69e7 resolve_codes
../../gcc/fortran/resolve.cc:17629
0x8b6aae gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.cc:17664
0x89e844 resolve_all_program_units
../../gcc/fortran/parse.cc:6656
0x89e844 gfc_parse_file()
../../gcc/fortran/parse.cc:6912
0x8ed3af gfc_be_parse_file
../../gcc/fortran/f95-lang.cc:229
