1! { dg-do compile }
2!
3! PR fortran/49624
4!
5  integer, target :: A(100)
6  integer,pointer :: P(:,:)
7  p(10,1:) => A  ! { dg-error "Lower bound has to be present" }
8  end
9