File1: #include <stdio.h>\n/*\n * Test if atomic can be recognized properly. No data races.\n * */\nint main (void)\n{\n  int a=0;\n#pragma omp parallel \n  {\n#pragma omp atomic\n    a+=1;\n  }\n  printf ("a=%d\n",a);\n  return 0;\n}\n\n
File2: program DRB108_atomic_orig_no\n    use omp_lib\n    implicit none\n\n    integer a\n    a = 0\n\n    !$omp parallel\n    !$omp atomic\n    a = a+1\n    !$omp end atomic\n    !$omp end parallel\n\n    print 100, a\n    100 format ('a =',3i8)\nend program