PR fortran/93462
* frontend-passes.c (gfc_code_walker): For EXEC_OACC_ATOMIC, set
in_omp_atomic to true prevent front-end optimization.
PR fortran/93462
* gfortran.dg/goacc/atomic-1.f90: New.
+2020-01-31 Tobias Burnus <tobias@codesourcery.com>
+
+ PR fortran/93462
+ * frontend-passes.c (gfc_code_walker): For EXEC_OACC_ATOMIC, set
+ in_omp_atomic to true prevent front-end optimization.
+
2020-01-30 Bernhard Reutner-Fischer <aldot@gcc.gnu.org>
PR fortran/87103
2020-01-30 Bernhard Reutner-Fischer <aldot@gcc.gnu.org>
PR fortran/87103
2020-01-28 Andrew Benson <abensonca@gmail.com>
2020-01-28 Andrew Benson <abensonca@gmail.com>
- PR fortran/93461
- * trans.h: Increase GFC_MAX_MANGLED_SYMBOL_LEN to
- GFC_MAX_SYMBOL_LEN*3+5 to allow for inclusion of submodule name,
- plus the "." between module and submodule names.
- * gfortran.dg/pr93461.f90: New test.
+ PR fortran/93461
+ * trans.h: Increase GFC_MAX_MANGLED_SYMBOL_LEN to
+ GFC_MAX_SYMBOL_LEN*3+5 to allow for inclusion of submodule name,
+ plus the "." between module and submodule names.
+ * gfortran.dg/pr93461.f90: New test.
2020-01-28 Andrew Benson <abensonca@gmail.com>
2020-01-28 Andrew Benson <abensonca@gmail.com>
WALK_SUBEXPR (co->ext.dt->extra_comma);
break;
WALK_SUBEXPR (co->ext.dt->extra_comma);
break;
case EXEC_OMP_ATOMIC:
in_omp_atomic = true;
break;
case EXEC_OMP_ATOMIC:
in_omp_atomic = true;
break;
+2020-01-31 Tobias Burnus <tobias@codesourcery.com>
+
+ PR fortran/93462
+ * gfortran.dg/goacc/atomic-1.f90: New.
+
2020-01-31 Tamar Christina <tamar.christina@arm.com>
PR rtl-optimization/91838
2020-01-31 Tamar Christina <tamar.christina@arm.com>
PR rtl-optimization/91838
--- /dev/null
+! { dg-do compile }
+!
+! PR fortran/93462
+!
+! Contributed by G. Steinmetz
+!
+program p
+ integer :: n = 1
+ integer :: a
+!$acc atomic write
+ a = f(n) - f(n)
+contains
+ integer function f(x)
+ integer, intent(in) :: x
+ f = x
+ end
+end