cray_pointers_3.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 6 行

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