Renamed test case for dynamic metadirective with device vs host.

Cases/Composite/OpenMP_Metadirective/OpenMP_metadirective_user_condition_target.f90 → Cases/Composite/OpenMP_Metadirective/OpenMP_MetadirectiveDynamic_TargetTeamsDistributeParallelDo-ParallelDo.f90

@@ -13,6 +13,8 @@ program OpenMP_metadirective_user_condition_target_test
     A, B, C, &
     C_Ref
     
+  print*, 'NumDevices             :', omp_get_num_devices ( )
+  
   print*, 'OnDevice ( )           :', OnDevice ( )
   print*, ''
   
@@ -25,7 +27,7 @@ program OpenMP_metadirective_user_condition_target_test
   print*, 'UseDevice              :', UseDevice
   print*, 'OnDevice ( UseDevice ) :', OnDevice ( UseDevice ) 
   print*, ''
-    
+
   
   allocate ( A ( 1024*10 ) )
   allocate ( B ( 1024*10 ) )
@@ -36,7 +38,6 @@ program OpenMP_metadirective_user_condition_target_test
   call random_number ( B )
   
   C_Ref = A + B 
-    
   
   print*, 'Calling ComputeAndTimeVectorAddition on Host'
   C = 0.0_real64
@@ -112,17 +113,13 @@ contains
     
     Start = omp_get_wtime ( )
     
-    !$OMP begin metadirective &
+    !$OMP metadirective &
     !$OMP   when ( user = { condition ( UseDevice .EQV. .true. ) } &
-    !$OMP     : target teams distribute )
-    
-    !$OMP parallel do
+    !$OMP     : target teams distribute parallel do ) &
+    !$OMP   default ( parallel do )
     do iV = 1, size ( A )
       C ( iV ) = A ( iV ) + B ( iV )
     end do
-    !$OMP end parallel do
-    
-    !$OMP end metadirective
     
     Timing = omp_get_wtime ( ) - Start