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