mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 04:00:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fortran: do not frontend-optimize MINLOC/MAXLOC for character arrays

Browse Source 
gcc/fortran/ChangeLog:

	PR fortran/104811
	* frontend-passes.cc (optimize_minmaxloc): Do not attempt
	frontend-optimization of MINLOC/MAXLOC for character arrays, as
	there is no suitable code yet for inline expansion.

gcc/testsuite/ChangeLog:

	PR fortran/104811
	* gfortran.dg/minmaxloc_16.f90: New test.
This commit is contained in:
Harald Anlauf 2022-03-08 21:47:04 +01:00
parent e480c3c06d
commit e3e369dad6
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/fortran/frontend-passes.cc
View File

@ -2276,6 +2276,7 @@ optimize_minmaxloc (gfc_expr **e)
if (fn->rank != 1
|| fn->value.function.actual == NULL
|| fn->value.function.actual->expr == NULL
|| fn->value.function.actual->expr->ts.type == BT_CHARACTER
|| fn->value.function.actual->expr->rank != 1)
return;

14
gcc/testsuite/gfortran.dg/minmaxloc_16.f90 Normal file
View File

@ -0,0 +1,14 @@
! { dg-do run }
! { dg-options "-fdump-tree-original" }
! PR fortran/104811
! Frontend-optimization mis-optimized minloc/maxloc of character arrays
program p
character(1) :: str(3)
str = ["a", "c", "a"]
if (any (maxloc (str) /= 2)) stop 1
if (minloc (str,dim=1) /= 1) stop 2
end
! { dg-final { scan-tree-dump-times "_gfortran_maxloc0_4_s1" 1 "original" } }
! { dg-final { scan-tree-dump-times "_gfortran_minloc2_4_s1" 1 "original" } }