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