1! { dg-do compile }
2! { dg-options "-fcray-pointer" }
3! PR fortran/25358
4subroutine adw_set
5   implicit none
6   real*8    Adw_xabcd_8(*)
7   pointer(Adw_xabcd_8_ , Adw_xabcd_8)
8   common/ Adw / Adw_xabcd_8_
9   integer n
10   Adw_xabcd_8(1:n) = 1
11   return
12end subroutine adw_set
13