! { dg-do compile } ! ! PR fortran/71068 ! ! Contributed by Gerhard Steinmetz ! program p integer :: a(2)[*] data a(1)[1] /1/ ! { dg-error "cannot have a coindex" } data a(2)[1] /2/ ! { dg-error "cannot have a coindex" } end