[gcc r11-9471] Fortran: Ignore KIND argument of a few more intrinsics. [PR103789]

[gcc r11-9471] Fortran: Ignore KIND argument of a few more intrinsics. [PR103789]

[Mikael Morin]

https://gcc.gnu.org/g:d7a44809924297a2ff26b6b1d040c72c22f07346

commit r11-9471-gd7a44809924297a2ff26b6b1d040c72c22f07346
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Mon Jan 17 11:45:46 2022 +0100

    Fortran: Ignore KIND argument of a few more intrinsics. [PR103789]
    
    After PR97896 for which some code was added to ignore the KIND argument
    of the INDEX intrinsics, and PR87711 for which that was extended to LEN_TRIM
    as well, this propagates it further to MASKL, MASKR, SCAN and VERIFY.
    
            PR fortran/103789
    
    gcc/fortran/ChangeLog:
    
            * trans-array.c (arg_evaluated_for_scalarization): Add MASKL, MASKR,
            SCAN and VERIFY to the list of intrinsics whose KIND argument is to be
            ignored.
    
    (cherry picked from commit c1c17a43e172ebc28f2cd247f6e83c5fdbc6219f)

Diff:
---
 gcc/fortran/trans-array.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 308213c57e3..dc89e97b0a1 100644
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -11249,6 +11249,10 @@ arg_evaluated_for_scalarization (gfc_intrinsic_sym *function,
 	    {
 	      case GFC_ISYM_INDEX:
 	      case GFC_ISYM_LEN_TRIM:
+	      case GFC_ISYM_MASKL:
+	      case GFC_ISYM_MASKR:
+	      case GFC_ISYM_SCAN:
+	      case GFC_ISYM_VERIFY:
 		if (strcmp ("kind", actual_arg.name) == 0)
 		  return false;