https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95191
Bug ID: 95191
Summary: Hang in WAIT with a bad ID= value if threading
specified
Product: gcc
Version: 9.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: longb at cray dot com
Target Milestone: ---
> cat test.f90
program test
real a(10000)
integer my_id
integer bad_id
data my_id /1/
data bad_id /2/
a = 1.
open (unit=10, file='test.dat', form='unformatted', &
& asynchronous='yes')
write (unit=10, asynchronous='yes', id=my_id) a
wait (unit=10, id=bad_id)
close (unit=10, status='delete')
end program test
If there are no command line options for the compile, there is no
issue. However, if -fopenmp is added (or -lpthreads is added for the
link), then the code hangs.
> gfortran test.f90
> ./a.out
> gfortran -fopenmp test.f90
> ./a.out
^C <<<<<<<<<<<---------- hangs here.
> gfortran --version
GNU Fortran (GCC) 9.3.0 20200312 (Cray Inc.)
Copyright (C) 2019 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Original submitter says it hangs here: hang in __gthread_cond_wait.
