! { dg-do compile } program crayerr real dpte1(10) pointer (iptr1,dpte1) ! { dg-error "fcray-pointer" } end program crayerr