URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [cray_pointers_6.f90] - Blame information for rev 816

Details | Compare with Previous | View Log


! { 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

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-fcray-pointer" }`
3			`! PR fortran/25358`
4			`subroutine adw_set`
5			`implicit none`
6			`real8 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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [cray_pointers_6.f90] - Blame information for rev 816