gfortran 12.2 accepts the code below if the "allocatable" attribute is
removed:
% cat gfortran-lock-issue.f90
use iso_fortran_env
type foo
type(lock_type), allocatable :: bar
end type
type(foo) foobar[*]
end
% gfortran -fcoarray=single gfortran-lock-issue.f90
gfortran-lock-issue.f90:
Hi Thomas,
On 24.10.22 22:33, Thomas Schwinge wrote:
Given the following reduced code, from a bigger test case that I'm
currently writing:
integer, allocatable :: ar(:,:,:)
logical :: l
l = acc_is_present (ar)
...
360 function acc_is_present_array_h (a)
361
