1! { dg-do compile } 2program crayerr 3 real dpte1(10) 4 pointer (iptr1,dpte1) ! { dg-error "fcray-pointer" } 5end program crayerr 6