6 lines
128 B
Fortran
6 lines
128 B
Fortran
|
! { dg-do compile }
|
||
|
program crayerr
|
||
|
real dpte1(10)
|
||
|
pointer (iptr1,dpte1) ! { dg-error "fcray-pointer" }
|
||
|
end program crayerr
|