| ! { dg-do compile } | |
| ! { dg-options "-fcray-pointer" } | |
| ! PR fortran/25358 | |
| subroutine adw_set | |
| implicit none | |
| real*8 Adw_xabcd_8(*) | |
| pointer(Adw_xabcd_8_ , Adw_xabcd_8) | |
| common/ Adw / Adw_xabcd_8_ | |
| integer n | |
| Adw_xabcd_8(1:n) = 1 | |
| return | |
| end subroutine adw_set |