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