Updated the test with a_common defined with more variables in a different module

Author: eugeneepshteyn

flang/test/Semantics/OpenACC/acc-common.f90

@@ -7,6 +7,13 @@ module acc_common_decl
   data a/42/
 end module acc_common_decl
 
+module acc_common_another
+  implicit none
+  integer c, d
+  common /a_common/ c, d
+!$acc declare create (/a_common/)
+end module acc_common_another
+
 module acc_common_intermediate
   use acc_common_decl
   implicit none
@@ -17,6 +24,7 @@ end module acc_common_intermediate
 
 program acc_decl_test
   use acc_common_intermediate
+  use acc_common_another
   implicit none
 
   a = 1
@@ -25,6 +33,9 @@ program acc_decl_test
   a = 2
 !$acc update device (/b_common/)
   b = 20
+!$acc update device (/a_common/)
+  c = 3
+  d = 30
 !ERROR: Could not find COMMON block 'a_common_bad' used in OpenACC directive
 !$acc update device (/a_common_bad/)
 end program