https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93026
Bug ID: 93026
Summary: gfortran.dg/goacc/finalize-1.f – FAILs since r279531
Product: gcc
Version: 10.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: burnus at gcc dot gnu.org
CC: tschwinge at gcc dot gnu.org
Target Milestone: ---
Commit r279531
[OpenACC] Elaborate/simplify 'exit data' 'finalize' handling
https://gcc.gnu.org/ml/gcc-patches/2019-12/msg01334.html
This commit added
!$ACC EXIT DATA FINALIZE DELETE (del_f_p(2:5))
!$ACC EXIT DATA COPYOUT (cpo_f_p(4:10)) FINALIZE
And associated
dg-final { scan-tree-dump-times
However, they currently fails with:
FAIL: gfortran.dg/goacc/finalize-1.f -O scan-tree-dump-times gimple
"(?n)#pragma omp target oacc_enter_exit_data map\\(delete:MEM\\[\\(c_char
\\*\\)[^\\]]+\\] \\[len: [^\\]]+\\]\\) map\\(to:del_f_p \\[pointer set, len:
[0-9]+\\]\\) map\\(alloc:del_f_p\\.data \\[pointer assign, bias: [^\\]]+\\]\\)
finalize$" 1
FAIL: gfortran.dg/goacc/finalize-1.f -O scan-tree-dump-times gimple
"(?n)#pragma omp target oacc_enter_exit_data map\\(force_from:MEM\\[\\(c_char
\\*\\)[^\\]]+\\] \\[len: [^\\]]+\\]\\) map\\(to:cpo_f_p \\[pointer set, len:
[0-9]+\\]\\) map\\(alloc:cpo_f_p\\.data \\[pointer assign, bias: [^\\]]+\\]\\)
finalize$" 1
The dump shows:
$ grep '#pragma' finalize-1.f.005t.gimple
#pragma omp target oacc_enter_exit_data map(release:del_r [len: 4])
#pragma omp target oacc_enter_exit_data map(delete:del_f [len: 12]) finalize
#pragma omp target oacc_enter_exit_data map(delete:MEM[(c_char *)_10] [len:
D.3954]) finalize
#pragma omp target oacc_enter_exit_data map(from:cpo_r [len: 64])
#pragma omp target oacc_enter_exit_data map(force_from:cpo_f [len: 4]) finalize
#pragma omp target oacc_enter_exit_data map(force_from:MEM[(c_char *)_20] [len:
D.3962]) finalize
