[Bug fortran/25358] vector assignment to assumed-size Cray Pointee error

[pinskia at gcc dot gnu dot org]

------- Comment #4 from pinskia at gcc dot gnu dot org  2006-03-15 17:10 -------
Reduced testcase:
      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
 10   continue 
      return
      end


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25358