Skip to content

Commit 9cf52fe

Browse files
authored
[flang][OpenMP][NFC] test the current private dealloc runtime calls (#124017)
It looks like in most cases we still don't make calls to deallocate allocatable members of derived types which have been privatized. This is just intended to add a test for the one case where we do, to make sure this doesn't regress with my upcoming changes.
1 parent 2068b1b commit 9cf52fe

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

flang/test/Lower/OpenMP/derived-type-allocatable.f90

+3
Original file line numberDiff line numberDiff line change
@@ -24,6 +24,9 @@ module m1
2424
!CHECK-LABEL: omp.private {type = private} @_QMm1Ftest_array_of_allocs
2525
!CHECK: fir.call @_FortranAInitializeClone
2626
!CHECK-NEXT: omp.yield
27+
!CHECK: } dealloc {
28+
!CHECK: fir.call @_FortranAAllocatableDeallocate
29+
!CHECK: omp.yield
2730

2831
!CHECK-LABEL: omp.private {type = firstprivate} @_QMm1Ftest_array
2932
!CHECK-NOT: fir.call @_FortranAInitializeClone

0 commit comments

Comments
 (0)