Skip to content

Commit f13d6c1

Browse files
committed
[flang][OpenMP][NFC] test the current private dealloc runtime calls
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 6b1db79 commit f13d6c1

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

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

Lines changed: 3 additions & 0 deletions
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)