gcc/testsuite/gfortran.dg/coarray_ptr_comp_3.f08

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=lib" }
   3
   4 program ptr_comp
   5    type t
   6       integer, pointer :: z(:)
   7    end type
   8    type(t), save :: obj[*]
   9    integer, allocatable, target :: i(:)[:]
  10
  11    obj%z => i(:)[4] ! { dg-error "shall not have a coindex" }
  12 end program
  13