[Bug libfortran/83948] Thread safety issue writing to internal file - libgfortran

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83948

--- Comment #4 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> What happens with 16 threads?

% gfc -fopenmp pr83948.f90
% setenv OMP_NUM_THREADS 16
% ./a.out 
 Table element number =          995 Same pole re-projecting area source:
Beginnng of new record:       : IndexVal=     995  Indexval*2=    1990 
RandomValue=0.899732, RandomValue*999=898, iThread= 15
 Table element number =          996 Same pole re-projecting area source:
Beginnng of new record:       : IndexVal=     996  Indexval*2=    1992 
RandomValue=0.445212, RandomValue*999=444, iThread= 15
 Table element number =          997 Same pole re-projecting area source:
Beginnng of new record:       : IndexVal=     997  Indexval*2=    1994 
RandomValue=0.839072, RandomValue*999=838, iThread= 15
 Table element number =          998 Same pole re-projecting area source:
Beginnng of new record:       : IndexVal=     998  Indexval*2=    1996 
RandomValue=0.242375, RandomValue*999=242, iThread= 15
 Table element number =          999 Same pole re-projecting area source:
Beginnng of new record:       : IndexVal=     999  Indexval*2=    1998 
RandomValue=0.579442, RandomValue*999=578, iThread= 15
 Table element number =         1000 Same pole re-projecting area source:
Beginnng of new record:       : IndexVal=    1000  Indexval*2=    2000 
RandomValue=0.300305, RandomValue*999=300, iThread= 15