gcc/testsuite/gfortran.dg/pointer_assign_5.f90

   1 ! { dg-do compile }
   2 ! PR fortran/37580
   3
   4 ! See also the pointer_remapping_* tests.
   5
   6 program test
   7 implicit none
   8 real, pointer :: ptr1(:), ptr2(:)
   9 ptr1(1) => ptr2 ! { dg-error "Expected bounds specification" }
  10 end program test