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