summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/cray_pointers_3.f90
blob: de50eee77440b8af177d8540244c15c4787cd51f (plain)
1
2
3
4
5
! { dg-do compile }
program crayerr
  real dpte1(10)
  pointer (iptr1,dpte1) ! { dg-error "fcray-pointer" }
end program crayerr