mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
12 lines
235 B
Fortran
12 lines
235 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fcoarray=lib -lcaf_single" }
|
|
!
|
|
! Check that reffing x on both sides of a coarray send does not ICE.
|
|
! PR 85507
|
|
|
|
program check_dependency
|
|
integer :: x[*]
|
|
x[42] = x
|
|
end program check_dependency
|
|
|