From d529c289dbac133d25f78cb7d40bc892a2daeebb Mon Sep 17 00:00:00 2001 From: Rainer Keller Date: Thu, 28 Jul 2016 15:03:00 +0200 Subject: [PATCH] Fails to compile with F77 fixed-form compiled programs... Convert to F77 notation and split into two (shorter) lines. Also, make usage of the SHMEM_MAX_NAME_LEN definition, by moving that first. Signed-off-by: Rainer Keller --- oshmem/include/shmem.fh | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/oshmem/include/shmem.fh b/oshmem/include/shmem.fh index bd554552a2..7bf071f217 100644 --- a/oshmem/include/shmem.fh +++ b/oshmem/include/shmem.fh @@ -19,11 +19,12 @@ integer SHMEM_MINOR_VERSION parameter ( SHMEM_MINOR_VERSION = 2 ) - CHARACTER(LEN = 256), PARAMETER :: SHMEM_VENDOR_STRING = "http://www.open-mpi.org/" - integer SHMEM_MAX_NAME_LEN parameter ( SHMEM_MAX_NAME_LEN = 256-1 ) + character(LEN = SHMEM_MAX_NAME_LEN) SHMEM_VENDOR_STRING + parameter ( SHMEM_VENDOR_STRING = "http://www.open-mpi.org/" ) + integer SHMEM_BARRIER_SYNC_SIZE parameter ( SHMEM_BARRIER_SYNC_SIZE = 4 )