https://gcc.gnu.org/bugzilla/show_bug.cgi?id=121043
--- Comment #5 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
I assume the first failure was fixed by the second patch. There is no log entry
for that test. I had to terminate it. I have let it run for over 30 minutes
before doing so.
The test is being run with two images and the source code courtesy OpenCoarrays
is:
register_alloc_vector.f90
program register3
implicit none
integer, parameter :: invalid_rank=-2
integer :: np=invalid_rank,array_size=10
integer,allocatable :: array(:)[:]
np = num_images()
allocate(array(array_size)[*],source=this_image())
block
logical :: res = .true.
if(this_image() == 1) then
if(size(array) /= array_size) error stop "Test failed."
endif
print *, this_image()
deallocate(array)
if(allocated(array)) error stop "Test failed."
if(this_image() == 1) print *,"Test passed."
end block
end program
