aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/coarray_dependency_1.f90
blob: dc4cbacba1eaff81741dff0c042e72f391a00378 (plain)
1
2
3
4
5
6
7
8
9
10
11
! { 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