fixup: Add test to ensure malloc is not called

Author: macurtis-amd

flang/test/Integration/no-malloc-private.f90

@@ -0,0 +1,27 @@
+! RUN: %flang_fc1 -emit-llvm -fopenmp -o - -x f95 %s | FileCheck %s
+
+subroutine foo(state,ilast,jlast,vals)
+  real, intent(in) :: state(:,:)
+  integer, intent(in) :: ilast, jlast
+  real, intent(  out) :: vals(:,:)
+  
+  real :: bar(4)
+  integer :: i,k,ll,s
+
+  !$omp target teams distribute parallel do private(bar)
+  do i = 1, ilast
+     do j = 1, jlast
+        do s = 1, 4
+           bar(s) = state(i,j+s)
+        enddo
+        vals(i,j) = -bar(1)/12 + 7*bar(2)/12 + 7*bar(3)/12 - bar(4)/12
+     enddo
+  enddo
+  !$omp end target teams distribute parallel do
+end subroutine foo
+
+! Ensure that we do not generate a call to malloc
+!CHECK-LABEL: omp.private.init:
+!CHECK-NOT:   call {{.*}} @malloc
+!CHECK:       br label
+