Hi Andre, thanks for the comments.
Am 18.08.20 um 19:33 schrieb Andre Vehreschild: > + case OMP_DEVICE_TYPE_HOST: > + MIO_NAME (ab_attribute) (AB_OMP_DEVICE_TYPE_NOHOST, attr_bits); > Why also NOHOST here? Copy and paste error. Well spotted. Thanks! (I wonder why it didn't show up in the testcase; probably because I generated the module in the same translation unit, I'd guess.) > @@ -426,6 +426,8 @@ build_common_decl (gfc_common_head *com, tree union_type, > bool is_init) /* If there is no backend_decl for the common block, build it. > */ > if (decl == NULL_TREE) > { > + tree clauses = NULL_TREE; > Would you mind using "omp_clauses" or the like here? I thought about this – but due to indentation, I think I used 'clauses'. But looking again at the patch, this must have been either 'c' or for some other patch as "omp_clauses" should work as well. I will later update the patch for the items. Tobias