[flang][OpenMP] Un-xfail do concurrent tests (llvm#3936)

Author: ronlieb

flang/test/Transforms/DoConcurrent/basic_device.f90

@@ -5,8 +5,6 @@
 ! RUN:   | FileCheck %s
 ! RUN: bbc -emit-hlfir -fopenmp -fdo-concurrent-to-openmp=device %s -o - \
 ! RUN:   | FileCheck %s
-! XFAIL: *
-! CHECK-LABEL: do_concurrent_basic
 program do_concurrent_basic
     implicit none
     integer :: a(10)

flang/test/Transforms/DoConcurrent/map_shape_info.f90

@@ -1,6 +1,5 @@
 ! Tests mapping of a basic `do concurrent` loop to
 ! `!$omp target teams distribute parallel do`.
-! XFAIL: *
 ! RUN: %flang_fc1 -emit-hlfir -fopenmp -fdo-concurrent-to-openmp=device %s -o - \
 ! RUN:   | FileCheck %s
 
@@ -14,7 +13,6 @@ program do_concurrent_shape
     end do
 end program do_concurrent_shape
 
-! CHECK-LABEL: do_concurrent_shape
 ! CHECK: fir.store %{{c10.*}} to %[[DIM0_EXT:.*]] : !fir.ref<index>
 ! CHECK: fir.store %{{c20.*}} to %[[DIM1_EXT:.*]] : !fir.ref<index>