gcc/testsuite/gfortran.dg/cray_pointers_6.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcray-pointer" }
   3 ! PR fortran/25358
   4 subroutine 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
  12 end subroutine adw_set