diff options
| author | Thomas Schwinge <tschwinge@baylibre.com> | 2024-10-15 09:29:53 +0200 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@baylibre.com> | 2024-10-15 09:39:29 +0200 |
| commit | fa90febea9801d4255bf6a1e9f0fd998629c3c7c (patch) | |
| tree | 2791c947fe6f5e1446d4a184dda396a64b9f73d8 /gcc | |
| parent | 441ec5f9191443818ac1c10c72860d8a8ee2f9d2 (diff) | |
| download | gcc-fa90febea9801d4255bf6a1e9f0fd998629c3c7c.zip gcc-fa90febea9801d4255bf6a1e9f0fd998629c3c7c.tar.gz gcc-fa90febea9801d4255bf6a1e9f0fd998629c3c7c.tar.bz2 | |
Fortran: Use OpenACC's acc_on_device builtin, fix OpenMP' __builtin_is_initial_device: Fix 'is_builtin' initialization
Bug fix for commit 3269a722b7a03613e9c4e2862bc5088c4a17cc11
"Fortran: Use OpenACC's acc_on_device builtin, fix OpenMP' __builtin_is_initial_device".
PR fortran/82250
PR fortran/82251
PR fortran/117136
gcc/fortran/
* trans-expr.cc (gfc_conv_procedure_call): Initialize
'is_builtin'.
(conv_function_val): Clean up.
Co-authored-by: Harald Anlauf <anlauf@gmx.de>
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/trans-expr.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index b9f585d..569b92a 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -4437,7 +4437,6 @@ conv_function_val (gfc_se * se, bool *is_builtin, gfc_symbol * sym, { tree tmp; - *is_builtin = false; if (gfc_is_proc_ptr_comp (expr)) tmp = get_proc_ptr_comp (expr); else if (sym->attr.dummy) @@ -8218,6 +8217,7 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym, arglist = retargs; /* Generate the actual call. */ + is_builtin = false; if (base_object == NULL_TREE) conv_function_val (se, &is_builtin, sym, expr, args); else |