OSDN Git Service

2006-03-31 Asher Langton <langton2@llnl.gov>
[pf3gnuchains/gcc-fork.git] / 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