[Bug libfortran/92836] segfault with inquire()

[burnus at gcc dot gnu.org]

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

--- Comment #7 from Tobias Burnus <burnus at gcc dot gnu.org> ---
(In reply to Jerry DeLisle from comment #3)
>   character(len=27) :: c
> Fortran runtime error: Fortran runtime error: End of recordEnd of record

This error I get because 27 characters are not enough — Otherwise, it works
here.


(In reply to Tobias Burnus from comment #6)
> This part looks a bit fishy. Shouldn't this be "if (TRYLOCK (...))"? Without
> "!" – or do I miss something crucial?
> https://www.kernel.org/doc/htmldocs/kernel-locking/API-mutex-trylock.html

In any case, with '!' removed, it seems to deadlock (running the c-length fixed
version of Jerry's code w/ the 'while' + 'end while' lines commented out).
Hence, it is either wrong in a more complicated way – or (likely) I simply
misunderstand how it is supposed to work – or both.