代码搜索：pointers
找到约 4,056 项符合「pointers」的源代码
代码结果 4,056
www.eeworm.com/read/162614/5526466
f90 cray_pointers_4.f90
! { dg-do compile }
! { dg-options "-fcray-pointer" }
subroutine err1
integer :: in_common1, in_common2, v, w, equiv1, equiv2
common /in_common1/ in_common1
pointer (ipt1, in_common1) ! { dg-e
www.eeworm.com/read/162614/5526543
f90 cray_pointers_1.f90
! { dg-do compile }
! { dg-options "-fcray-pointer" }
! Bad type for pointer
subroutine err1
real ipt
real array(10)
pointer (ipt, array) ! { dg-error "integer" }
end subroutine err1
! Multipl
www.eeworm.com/read/366702/2876180
f90 cray_pointers_6.f90
! { 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_
www.eeworm.com/read/366702/2876188
f90 cray_pointers_5.f90
! { dg-do run }
! { dg-options "-fcray-pointer -fno-strict-aliasing" }
module cray_pointers_5
integer :: var (10), arr(100)
pointer (ipt, var)
end module cray_pointers_5
use cray_pointers_5
www.eeworm.com/read/366702/2876593
f90 cray_pointers_3.f90
! { dg-do compile }
program crayerr
real dpte1(10)
pointer (iptr1,dpte1) ! { dg-error "fcray-pointer" }
end program crayerr
www.eeworm.com/read/366702/2876941
f90 cray_pointers_7.f90
! { dg-do run }
! { dg-options "-fcray-pointer" }
! Test the implementation of Cray pointers to procedures.
program cray_pointers_7
implicit none
integer tmp
integer, external :: fn
external
www.eeworm.com/read/366702/2877002
f90 cray_pointers_2.f90
! { dg-do run }
! { dg-options "-fcray-pointer -fbounds-check" }
! Series of routines for testing a Cray pointer implementation
program craytest
common /errors/errors(400)
common /foo/foo ! To pre
www.eeworm.com/read/366702/2877531
f90 cray_pointers_4.f90
! { dg-do compile }
! { dg-options "-fcray-pointer" }
subroutine err1
integer :: in_common1, in_common2, v, w, equiv1, equiv2
common /in_common1/ in_common1
pointer (ipt1, in_common1) ! { dg-e
www.eeworm.com/read/366702/2877745
f90 cray_pointers_1.f90
! { dg-do compile }
! { dg-options "-fcray-pointer" }
! Bad type for pointer
subroutine err1
real ipt
real array(10)
pointer (ipt, array) ! { dg-error "integer" }
end subroutine err1
! Multipl