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.
This commit is contained in:
parent
86e8a147c6
commit
b4effd200f
@ -1,6 +1,7 @@
|
||||
!
|
||||
! Copyright (c) 2013 Mellanox Technologies, Inc.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
!
|
||||
! Additional copyrights may follow
|
||||
@ -12,6 +13,7 @@ program hello_oshmem
|
||||
include 'shmem.fh'
|
||||
|
||||
integer proc, nproc
|
||||
integer my_pe, num_pes
|
||||
|
||||
call START_PES(0)
|
||||
proc = MY_PE()
|
||||
|
@ -1,6 +1,7 @@
|
||||
!
|
||||
! Copyright (c) 2013 Mellanox Technologies, Inc.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
!
|
||||
! Additional copyrights may follow
|
||||
@ -15,6 +16,7 @@ program ring_oshmem
|
||||
integer*8, save :: rbuf
|
||||
integer*8 :: message
|
||||
integer :: proc, nproc, next
|
||||
integer :: my_pe, num_pes
|
||||
|
||||
rbuf = -1
|
||||
message = 10
|
||||
|
@ -2,6 +2,7 @@
|
||||
!
|
||||
! Copyright (c) 2013 Mellanox Technologies, Inc.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2014 Cisco Systems, Inc. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
!
|
||||
! Additional copyrights may follow
|
||||
@ -48,9 +49,6 @@
|
||||
integer SHMEM_CMP_GE
|
||||
parameter ( SHMEM_CMP_GE = 5 )
|
||||
|
||||
integer my_pe
|
||||
integer num_pes
|
||||
|
||||
logical shmem_pe_accessible
|
||||
logical shmem_addr_accessible
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user