https://gcc.gnu.org/g:3888feef0313026a2da5db1321bcc84181eb1ffc

commit r17-4009-g3888feef0313026a2da5db1321bcc84181eb1ffc
Author: Kael Andrew Alonzo Franco <[email protected]>
Date:   Tue Sep 8 15:59:21 2026 -0400

    fortran: Convert build_int_cst (NULL_TREE, cst). [PR126622]
    
    build_int_cst converts NULL_TREE to integer_type_node.
    Use build_int_cst (integer_type_node, cst) to
    remove build_int_cst_type in the future.
    
    Bootstrapped and regtested on x86_64-pc-linux-gnu.
    
            PR middle-end/126622
    
    gcc/fortran/ChangeLog:
    
            * trans-intrinsic.cc (conv_intrinsic_atomic_op): Use
            build_int_cst (integer_type_node, cst).
            (conv_intrinsic_atomic_cas): Ditto.
    
    Reviewed-by: Richard Biener <[email protected]>
    Signed-off-by: Kael Andrew Franco <[email protected]>

Diff:
---
 gcc/fortran/trans-intrinsic.cc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gcc/fortran/trans-intrinsic.cc b/gcc/fortran/trans-intrinsic.cc
index 205166406567..b7fdaba685d5 100644
--- a/gcc/fortran/trans-intrinsic.cc
+++ b/gcc/fortran/trans-intrinsic.cc
@@ -12841,13 +12841,13 @@ conv_intrinsic_atomic_op (gfc_code *code)
     case GFC_ISYM_ATOMIC_XOR:
       tmp = build_call_expr_loc (input_location, tmp, 3, atom,
                                 fold_convert (itype, value),
-                                build_int_cst (NULL, MEMMODEL_RELAXED));
+                                build_int_cst (integer_type_node, 
MEMMODEL_RELAXED));
       gfc_add_expr_to_block (&block, tmp);
       break;
     default:
       tmp = build_call_expr_loc (input_location, tmp, 3, atom,
                                 fold_convert (itype, value),
-                                build_int_cst (NULL, MEMMODEL_RELAXED));
+                                build_int_cst (integer_type_node, 
MEMMODEL_RELAXED));
       gfc_add_modify (&block, old, fold_convert (TREE_TYPE (old), tmp));
       break;
     }
@@ -13078,8 +13078,8 @@ conv_intrinsic_atomic_cas (gfc_code *code)
                             gfc_build_addr_expr (NULL, old),
                             fold_convert (TREE_TYPE (old), new_val),
                             boolean_false_node,
-                            build_int_cst (NULL, MEMMODEL_RELAXED),
-                            build_int_cst (NULL, MEMMODEL_RELAXED));
+                            build_int_cst (integer_type_node, 
MEMMODEL_RELAXED),
+                            build_int_cst (integer_type_node, 
MEMMODEL_RELAXED));
   gfc_add_expr_to_block (&block, tmp);
 
   if (stat != NULL_TREE)

Reply via email to