gcc/testsuite/gfortran.dg/pointer_assign_6.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 ! PR fortran/37580
   4 !
   5 program test
   6 implicit none
   7 real, pointer :: ptr1(:), ptr2(:)
   8 ptr1(1:) => ptr2 ! { dg-error "Fortran 2003: Bounds specification" }
   9 end program test