git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fortran/OpenMP: Add missing EXEC_OMP_DEPOBJ case val [PR100642] 

PR fortran/100642

gcc/fortran/ChangeLog:

	* openmp.c (omp_code_to_statement): Add missing EXEC_OMP_DEPOBJ.

gcc/testsuite/ChangeLog:

	* gfortran.dg/goacc-gomp/depobj.f90: New test.
This commit is contained in:
Tobias Burnus 2021-05-18 16:40:45 +02:00
parent 38751c4d5e
commit cc193ac840
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/fortran/openmp.c
View File

@ -6902,7 +6902,8 @@ omp_code_to_statement (gfc_code *code)
return ST_OMP_PARALLEL_DO; return ST_OMP_PARALLEL_DO;
case EXEC_OMP_PARALLEL_DO_SIMD: case EXEC_OMP_PARALLEL_DO_SIMD:
return ST_OMP_PARALLEL_DO_SIMD; return ST_OMP_PARALLEL_DO_SIMD;
case EXEC_OMP_DEPOBJ:
return ST_OMP_DEPOBJ;
default: default:
gcc_unreachable (); gcc_unreachable ();
} }

11
gcc/testsuite/gfortran.dg/goacc-gomp/depobj.f90 Normal file
View File

@ -0,0 +1,11 @@
! PR fortran/100642
! Contributed by G. Steinmetz
program p
!use omp_lib, only: omp_depend_kind
use iso_c_binding, only: c_intptr_t
integer, parameter :: omp_depend_kind = 2*c_intptr_t
integer(omp_depend_kind) :: a, b
!$acc data
!$omp depobj(b) depend(out:a) ! { dg-error "The !\\\$OMP DEPOBJ directive cannot be specified within a !\\\$ACC DATA region" }
!$acc end data
end