re PR fortran/77500 (ICE in gfc_trans_omp_atomic, at fortran/trans-openmp.c:2822)
PR fortran/77500 * trans-openmp.c (gfc_trans_omp_atomic): For atomic write or swap, don't try to look through GFC_ISYM_CONVERSION. In other cases, check that value.function.isym is non-NULL before dereferencing it. * gfortran.dg/gomp/pr77500.f90: New test. From-SVN: r240038
This commit is contained in:
parent
8ebc1e0f8e
commit
20b6cf0194
|
@ -1,3 +1,10 @@
|
|||
2016-09-08 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
PR fortran/77500
|
||||
* trans-openmp.c (gfc_trans_omp_atomic): For atomic write or
|
||||
swap, don't try to look through GFC_ISYM_CONVERSION. In other cases,
|
||||
check that value.function.isym is non-NULL before dereferencing it.
|
||||
|
||||
2016-09-04 Steven G. Kargl <kargl@gcc.gnu.org>
|
||||
|
||||
PR fortran/77391
|
||||
|
|
|
@ -2818,7 +2818,11 @@ gfc_trans_omp_atomic (gfc_code *code)
|
|||
gfc_start_block (&block);
|
||||
|
||||
expr2 = code->expr2;
|
||||
if (expr2->expr_type == EXPR_FUNCTION
|
||||
if (((atomic_code->ext.omp_atomic & GFC_OMP_ATOMIC_MASK)
|
||||
!= GFC_OMP_ATOMIC_WRITE)
|
||||
&& (atomic_code->ext.omp_atomic & GFC_OMP_ATOMIC_SWAP) == 0
|
||||
&& expr2->expr_type == EXPR_FUNCTION
|
||||
&& expr2->value.function.isym
|
||||
&& expr2->value.function.isym->id == GFC_ISYM_CONVERSION)
|
||||
expr2 = expr2->value.function.actual->expr;
|
||||
|
||||
|
@ -2857,6 +2861,7 @@ gfc_trans_omp_atomic (gfc_code *code)
|
|||
var = code->expr1->symtree->n.sym;
|
||||
expr2 = code->expr2;
|
||||
if (expr2->expr_type == EXPR_FUNCTION
|
||||
&& expr2->value.function.isym
|
||||
&& expr2->value.function.isym->id == GFC_ISYM_CONVERSION)
|
||||
expr2 = expr2->value.function.actual->expr;
|
||||
}
|
||||
|
@ -2914,6 +2919,7 @@ gfc_trans_omp_atomic (gfc_code *code)
|
|||
}
|
||||
e = expr2->value.op.op1;
|
||||
if (e->expr_type == EXPR_FUNCTION
|
||||
&& e->value.function.isym
|
||||
&& e->value.function.isym->id == GFC_ISYM_CONVERSION)
|
||||
e = e->value.function.actual->expr;
|
||||
if (e->expr_type == EXPR_VARIABLE
|
||||
|
@ -2927,6 +2933,7 @@ gfc_trans_omp_atomic (gfc_code *code)
|
|||
{
|
||||
e = expr2->value.op.op2;
|
||||
if (e->expr_type == EXPR_FUNCTION
|
||||
&& e->value.function.isym
|
||||
&& e->value.function.isym->id == GFC_ISYM_CONVERSION)
|
||||
e = e->value.function.actual->expr;
|
||||
gcc_assert (e->expr_type == EXPR_VARIABLE
|
||||
|
@ -3041,6 +3048,7 @@ gfc_trans_omp_atomic (gfc_code *code)
|
|||
code = code->next;
|
||||
expr2 = code->expr2;
|
||||
if (expr2->expr_type == EXPR_FUNCTION
|
||||
&& expr2->value.function.isym
|
||||
&& expr2->value.function.isym->id == GFC_ISYM_CONVERSION)
|
||||
expr2 = expr2->value.function.actual->expr;
|
||||
|
||||
|
|
|
@ -1,5 +1,8 @@
|
|||
2016-09-08 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
PR fortran/77500
|
||||
* gfortran.dg/gomp/pr77500.f90: New test.
|
||||
|
||||
PR fortran/77516
|
||||
* gfortran.dg/gomp/pr77516.f90: New test.
|
||||
|
||||
|
|
|
@ -0,0 +1,9 @@
|
|||
! PR fortran/77500
|
||||
! { dg-do compile }
|
||||
|
||||
program pr77500
|
||||
real :: x
|
||||
!$omp atomic write
|
||||
x = f()
|
||||
!$omp end atomic
|
||||
end
|
Loading…
Reference in New Issue