[flang][OpenMP] Incorrect results with Fujitsu test 0685_0001

[eugeneepshteyn]

Test: 0685_0001.f90

Execution:

$ flang -fopenmp 0685_0001.f90 && ./a.out
flang-21: warning: OpenMP support in flang is still experimental [-Wexperimental-option]
 j1= 190
 j2= 1090
 j1= 190
 j2= 1110
 j1= 220
 j2= 1130
 j1= 230
 j2= 1130
 j1= 230
 j2= 1130
 j1= 240
 j1= 280
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 j1= 320
 j2= 1220
 pass

The correct output should only have pass in it.

I suspect that /com1/ and /com2/ are not privatized, despite being firstprivate.

flang version:

$ flang --version
flang version 21.0.0git (https://github.com/eugeneepshteyn/llvm-project.git 6fb36db4818abde56e5da47899dcdaacd8293903)
Target: x86_64-unknown-linux-gnu
Thread model: posix
...
Build config: +unoptimized, +assertions