Fortran PR118935 ping

[Huang Pei]

hi, Jerry,

I updated PR118935 with a patch on bugzilla, could you take a look at
it? The root cause of segment fault is caused by data race, and too 
weakly-ordered Loong64 just expose it (and maybe other data error).