Remove num_pes,my_pe declarations from shmem.fh.
The openshmem test suite (http://bongo.cs.uh.edu/site/sites/default/site_files/openshmem-test-suite-release-1.0d.tar.bz2) declares num_pes and my_pe in each Fortran test file -- it apparently doesn't expect shmem.fh to declare these functions. Sigh. cmr=v1.7.5:reviewer=miked:subject=the openshmem community is crazy This commit was SVN r30660.
Этот коммит содержится в:
родитель
86e8a147c6
Коммит
b4effd200f
@ -1,6 +1,7 @@
|
|||||||
!
|
!
|
||||||
! Copyright (c) 2013 Mellanox Technologies, Inc.
|
! Copyright (c) 2013 Mellanox Technologies, Inc.
|
||||||
! All rights reserved.
|
! All rights reserved.
|
||||||
|
! Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
|
||||||
! $COPYRIGHT$
|
! $COPYRIGHT$
|
||||||
!
|
!
|
||||||
! Additional copyrights may follow
|
! Additional copyrights may follow
|
||||||
@ -12,6 +13,7 @@ program hello_oshmem
|
|||||||
include 'shmem.fh'
|
include 'shmem.fh'
|
||||||
|
|
||||||
integer proc, nproc
|
integer proc, nproc
|
||||||
|
integer my_pe, num_pes
|
||||||
|
|
||||||
call START_PES(0)
|
call START_PES(0)
|
||||||
proc = MY_PE()
|
proc = MY_PE()
|
||||||
|
@ -1,6 +1,7 @@
|
|||||||
!
|
!
|
||||||
! Copyright (c) 2013 Mellanox Technologies, Inc.
|
! Copyright (c) 2013 Mellanox Technologies, Inc.
|
||||||
! All rights reserved.
|
! All rights reserved.
|
||||||
|
! Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
|
||||||
! $COPYRIGHT$
|
! $COPYRIGHT$
|
||||||
!
|
!
|
||||||
! Additional copyrights may follow
|
! Additional copyrights may follow
|
||||||
@ -15,6 +16,7 @@ program ring_oshmem
|
|||||||
integer*8, save :: rbuf
|
integer*8, save :: rbuf
|
||||||
integer*8 :: message
|
integer*8 :: message
|
||||||
integer :: proc, nproc, next
|
integer :: proc, nproc, next
|
||||||
|
integer :: my_pe, num_pes
|
||||||
|
|
||||||
rbuf = -1
|
rbuf = -1
|
||||||
message = 10
|
message = 10
|
||||||
|
@ -2,6 +2,7 @@
|
|||||||
!
|
!
|
||||||
! Copyright (c) 2013 Mellanox Technologies, Inc.
|
! Copyright (c) 2013 Mellanox Technologies, Inc.
|
||||||
! All rights reserved.
|
! All rights reserved.
|
||||||
|
! Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
|
||||||
! $COPYRIGHT$
|
! $COPYRIGHT$
|
||||||
!
|
!
|
||||||
! Additional copyrights may follow
|
! Additional copyrights may follow
|
||||||
@ -48,9 +49,6 @@
|
|||||||
integer SHMEM_CMP_GE
|
integer SHMEM_CMP_GE
|
||||||
parameter ( SHMEM_CMP_GE = 5 )
|
parameter ( SHMEM_CMP_GE = 5 )
|
||||||
|
|
||||||
integer my_pe
|
|
||||||
integer num_pes
|
|
||||||
|
|
||||||
logical shmem_pe_accessible
|
logical shmem_pe_accessible
|
||||||
logical shmem_addr_accessible
|
logical shmem_addr_accessible
|
||||||
|
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user