diff --git a/micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95 b/micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95
index 5a9a5fe..f95bbf0 100644
--- a/micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95
+++ b/micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95
@@ -14,6 +14,8 @@ program DRB071_targetparallelfor_orig_no
     integer :: i, len
     integer, dimension(:), allocatable :: a
 
+    len = 1000
+    
     allocate(a(len))
 
     do i = 1, len
diff --git a/micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95 b/micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95
index 2df0db3..811e970 100644
--- a/micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95
+++ b/micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95
@@ -15,6 +15,8 @@ program DRB152_missinglock2_orig_gpu_no
     integer :: var, i
     var = 0
 
+    call omp_init_lock (lck)
+
     !$omp target map(tofrom:var) device(0)
     !$omp teams num_teams(1)
     !$omp distribute parallel do