├── feature_tests ├── Fortran │ ├── collect │ │ ├── test_parameters.conf │ │ └── Makefile │ ├── reductions │ │ ├── test_parameters.conf │ │ └── Makefile │ ├── alloc │ │ ├── test_parameters.conf │ │ ├── Makefile │ │ ├── test_shmem_shpalloc_02_int4.f90 │ │ ├── test_shmem_shpalloc_02_int8.f90 │ │ ├── test_shmem_shpalloc_02_logical.f90 │ │ ├── test_shmem_shpalloc_02_real4.f90 │ │ ├── test_shmem_shpalloc_02_real8.f90 │ │ ├── test_shmem_shpalloc_02_char.f90 │ │ ├── test_shmem_shpalloc_02_double.f90 │ │ ├── test_shmem_shpalloc_03_int4.f90 │ │ ├── test_shmem_shpalloc_03_logical.f90 │ │ ├── test_shmem_shpalloc_03_real4.f90 │ │ ├── test_shmem_shpalloc_03_real8.f90 │ │ ├── test_shmem_shpalloc_03_int8.f90 │ │ ├── test_shmem_shpalloc_03_double.f90 │ │ └── test_shmem_shpalloc_03_char.f90 │ ├── Makefile.opts │ ├── atomic │ │ ├── Makefile │ │ └── test_parameters.conf │ ├── broadcast │ │ └── Makefile │ ├── transfer │ │ └── Makefile │ ├── accessibility │ │ ├── Makefile │ │ ├── test_shmem_acc_01.f90 │ │ ├── test_shmem_acc_02.f90 │ │ ├── test_parameters.conf │ │ ├── test_shmem_acc_mem_01_real4.f90 │ │ ├── test_shmem_acc_mem_01_real8.f90 │ │ ├── test_shmem_acc_mem_01_logical.f90 │ │ ├── test_shmem_acc_mem_01_char.f90 │ │ ├── test_shmem_acc_mem_01_int4.f90 │ │ ├── test_shmem_acc_mem_01_int8.f90 │ │ ├── test_shmem_acc_mem_01_double.f90 │ │ ├── test_shmem_acc_mem_02_real4.f90 │ │ ├── test_shmem_acc_mem_02_real8.f90 │ │ ├── test_shmem_acc_mem_02_logical.f90 │ │ ├── test_shmem_acc_mem_02_char.f90 │ │ ├── test_shmem_acc_mem_02_int4.f90 │ │ ├── test_shmem_acc_mem_02_int8.f90 │ │ ├── test_shmem_acc_mem_04_real4.f90 │ │ ├── test_shmem_acc_mem_04_real8.f90 │ │ ├── test_shmem_acc_mem_02_double.f90 │ │ ├── test_shmem_acc_mem_04_logical.f90 │ │ ├── test_shmem_acc_mem_04_char.f90 │ │ ├── test_shmem_acc_mem_04_int4.f90 │ │ ├── test_shmem_acc_mem_04_int8.f90 │ │ ├── test_shmem_acc_mem_04_double.f90 │ │ ├── test_shmem_acc_mem_05_real4.f90 │ │ ├── test_shmem_acc_mem_05_real8.f90 │ │ ├── test_shmem_acc_mem_05_char.f90 │ │ ├── test_shmem_acc_mem_05_int4.f90 │ │ ├── test_shmem_acc_mem_05_int8.f90 │ │ ├── test_shmem_acc_mem_05_logical.f90 │ │ ├── test_shmem_acc_mem_05_double.f90 │ │ ├── test_shmem_acc_mem_03_real4.f90 │ │ ├── test_shmem_acc_mem_03_logical.f90 │ │ ├── test_shmem_acc_mem_03_int4.f90 │ │ ├── test_shmem_acc_mem_03_char.f90 │ │ ├── test_shmem_acc_mem_03_double.f90 │ │ ├── test_shmem_acc_mem_03_real8.f90 │ │ └── test_shmem_acc_mem_03_int8.f90 │ └── Makefile ├── C │ ├── test_shmem_global_exit.c │ └── test_shmem_finalize.c └── Makefile ├── error_tests ├── Fortran │ ├── atomic │ │ ├── test_parameters.conf │ │ └── Makefile │ ├── Makefile.opts │ ├── Makefile │ └── transfer │ │ ├── Makefile │ │ └── test_parameters.conf └── Makefile ├── contrib └── gnu-indent-options └── performance_tests └── micro_benchmarks └── Makefile /feature_tests/Fortran/collect/test_parameters.conf: -------------------------------------------------------------------------------- 1 | test_shmem_collect_01_int4.x, 3, shmem_collect with SAVE variables,,0,Pass 2 | test_shmem_collect_01_int8.x, 3, shmem_collect with SAVE variables,,0,Pass 3 | test_shmem_collect_02_int4.x, 3, shmem_collect with COMMON variables,,0,Pass 4 | test_shmem_collect_02_int8.x, 3, shmem_collect with COMMON variables,,0,Pass 5 | test_shmem_collect_03_int4.x, 3, shmem_collect with shpalloc'ed variables,,0,Pass 6 | test_shmem_collect_03_int8.x, 3, shmem_collect with shpalloc'ed variables,,0,Pass 7 | test_shmem_collect_04_int4.x, 3, shmem_collect needs to be called by all PEs in the active set,,5,Timeout 8 | test_shmem_collect_04_int8.x, 3, shmem_collect needs to be called by all PEs in the active set,,5,Timeout 9 | test_shmem_fcollect_01_int4.x, 3, shmem_fcollect with SAVE variables,,0,Pass 10 | test_shmem_fcollect_01_int8.x, 3, shmem_fcollect with SAVE variables,,0,Pass 11 | test_shmem_fcollect_02_int4.x, 3, shmem_fcollect with COMMON variables,,0,Pass 12 | test_shmem_fcollect_02_int8.x, 3, shmem_fcollect with COMMON variables,,0,Pass 13 | test_shmem_fcollect_03_int4.x, 3, shmem_fcollect with shpalloc'ed variables,,0,Pass 14 | test_shmem_fcollect_03_int8.x, 3, shmem_fcollect with shpalloc'ed variables,,0,Pass 15 | test_shmem_fcollect_04_int4.x, 3, shmem_fcollect needs to be called by all PEs in the active set,,5,Timeout 16 | test_shmem_fcollect_04_int8.x, 3, shmem_fcollect needs to be called by all PEs in the active set,,5,Timeout 17 | -------------------------------------------------------------------------------- /error_tests/Fortran/atomic/test_parameters.conf: -------------------------------------------------------------------------------- 1 | test_shmem_swap_04_int4.x, 2, shmem_swap with non remotely accessible variables,,0,Fail 2 | test_shmem_swap_04_int8.x, 2, shmem_swap with non remotely accessible variables,,0,Fail 3 | test_shmem_swap_05_int4.x, 2, shmem_swap with non remotely accessible variables (ALLOCATABLE),,0,Fail 4 | test_shmem_swap_05_int8.x, 2, shmem_swap with non remotely accessible variables (ALLOCATABLE),,0,Fail 5 | test_shmem_cswap_04_int4.x, 2, shmem_cswap with non remotely accessible variables,,0,Fail 6 | test_shmem_cswap_04_int8.x, 2, shmem_cswap with non remotely accessible variables,,0,Fail 7 | test_shmem_add_04_int4.x, 2, shmem_add with non remotely accessible variables,,0,Fail 8 | test_shmem_add_04_int8.x, 2, shmem_add with non remotely accessible variables,,0,Fail 9 | test_shmem_inc_04_int4.x, 2, shmem_inc with non remotely accessible variables,,0,Fail 10 | test_shmem_inc_04_int8.x, 2, shmem_inc with non remotely accessible variables,,0,Fail 11 | test_shmem_inc_05_int4.x, 2, shmem_inc with non remotely accessible variables (ALLOCATABLE),,0,Fail 12 | test_shmem_inc_05_int8.x, 2, shmem_inc with non remotely accessible variables (ALLOCATABLE),,0,Fail 13 | test_shmem_finc_04_int4.x, 2, shmem_finc with non remotely accessible variables,,0,Fail 14 | test_shmem_finc_04_int8.x, 2, shmem_finc with non remotely accessible variables,,0,Fail 15 | test_shmem_finc_05_int4.x, 2, shmem_finc with non remotely accessible variables (ALLOCATABLE),,0,Fail 16 | test_shmem_finc_05_int8.x, 2, shmem_finc with non remotely accessible variables (ALLOCATABLE),,0,Fail 17 | -------------------------------------------------------------------------------- /feature_tests/Fortran/reductions/test_parameters.conf: -------------------------------------------------------------------------------- 1 | test_shmem_and_01_int4.x, 5, shmem_and with SAVE variables,,0,Pass 2 | test_shmem_and_01_int8.x, 5, shmem_and with SAVE variables,,0,Pass 3 | test_shmem_or_01_int4.x, 5, shmem_or with SAVE variables,,0,Pass 4 | test_shmem_or_01_int8.x, 5, shmem_or with SAVE variables,,0,Pass 5 | test_shmem_xor_01_int4.x, 5, shmem_xor with SAVE variables,,0,Pass 6 | test_shmem_xor_01_int8.x, 5, shmem_xor with SAVE variables,,0,Pass 7 | test_shmem_max_01_int4.x, 5, shmem_max with SAVE variables,,0,Pass 8 | test_shmem_max_01_int8.x, 5, shmem_max with SAVE variables,,0,Pass 9 | test_shmem_max_01_real4.x, 5, shmem_max with SAVE variables,,0,Pass 10 | test_shmem_max_01_real8.x, 5, shmem_max with SAVE variables,,0,Pass 11 | test_shmem_min_01_int4.x, 5, shmem_min with SAVE variables,,0,Pass 12 | test_shmem_min_01_int8.x, 5, shmem_min with SAVE variables,,0,Pass 13 | test_shmem_min_01_real4.x, 5, shmem_min with SAVE variables,,0,Pass 14 | test_shmem_min_01_real8.x, 5, shmem_min with SAVE variables,,0,Pass 15 | test_shmem_sum_01_int4.x, 5, shmem_sum with SAVE variables,,0,Pass 16 | test_shmem_sum_01_int8.x, 5, shmem_sum with SAVE variables,,0,Pass 17 | test_shmem_sum_01_real4.x, 5, shmem_sum with SAVE variables,,0,Pass 18 | test_shmem_sum_01_real8.x, 5, shmem_sum with SAVE variables,,0,Pass 19 | test_shmem_prod_01_int4.x, 5, shmem_prod with SAVE variables,,0,Pass 20 | test_shmem_prod_01_int8.x, 5, shmem_prod with SAVE variables,,0,Pass 21 | test_shmem_prod_01_real4.x, 5, shmem_prod with SAVE variables,,0,Pass 22 | test_shmem_prod_01_real8.x, 5, shmem_prod with SAVE variables,,0,Pass 23 | -------------------------------------------------------------------------------- /contrib/gnu-indent-options: -------------------------------------------------------------------------------- 1 | /* 2 | * 3 | * Copyright (c) 2011 - 2015 4 | * University of Houston System and UT-Battelle, LLC. 5 | * 6 | * All rights reserved. 7 | * 8 | * Redistribution and use in source and binary forms, with or without 9 | * modification, are permitted provided that the following conditions 10 | * are met: 11 | * 12 | * o Redistributions of source code must retain the above copyright notice, 13 | * this list of conditions and the following disclaimer. 14 | * 15 | * o Redistributions in binary form must reproduce the above copyright 16 | * notice, this list of conditions and the following disclaimer in the 17 | * documentation and/or other materials provided with the distribution. 18 | * 19 | * o Neither the name of the University of Houston System, UT-Battelle, LLC 20 | * nor the names of its contributors may be used to 21 | * endorse or promote products derived from this software without specific 22 | * prior written permission. 23 | * 24 | * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 25 | * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 26 | * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 27 | * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 28 | * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 29 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 30 | * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 31 | * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 32 | * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 33 | * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 34 | * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 35 | * 36 | */ 37 | 38 | 39 | These are the GNU indent options used for the code layout in this project: 40 | 41 | https://www.gnu.org/software/indent/manual/indent.html 42 | 43 | --line-length80 44 | --indent-level4 45 | --tab-size4 46 | --no-tabs 47 | --format-all-comments 48 | --braces-on-if-line 49 | --space-after-procedure-calls 50 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_parameters.conf: -------------------------------------------------------------------------------- 1 | test_shmem_shpalloc_01_int4.x, 3, shpalloc correctly allocates data in the symmetric heap,,0,Pass 2 | test_shmem_shpalloc_01_int8.x, 3, shpalloc correctly allocates data in the symmetric heap,,0,Pass 3 | test_shmem_shpalloc_01_real4.x, 3, shpalloc correctly allocates data in the symmetric heap,,0,Pass 4 | test_shmem_shpalloc_01_real8.x, 3, shpalloc correctly allocates data in the symmetric heap,,0,Pass 5 | test_shmem_shpalloc_01_double.x, 3, shpalloc correctly allocates data in the symmetric heap,,0,Pass 6 | test_shmem_shpalloc_01_char.x, 3, shpalloc correctly allocates data in the symmetric heap,,0,Pass 7 | test_shmem_shpalloc_01_logical.x, 3, shpalloc correctly allocates data in the symmetric heap,,0,Pass 8 | test_shmem_shpalloc_02_int4.x, 3, shpalloc returns error code when allocating 0 bytes,,0,Pass 9 | test_shmem_shpalloc_02_int8.x, 3, shpalloc returns error code when allocating 0 bytes,,0,Pass 10 | test_shmem_shpalloc_02_real4.x, 3, shpalloc returns error code when allocating 0 bytes,,0,Pass 11 | test_shmem_shpalloc_02_real8.x, 3, shpalloc returns error code when allocating 0 bytes,,0,Pass 12 | test_shmem_shpalloc_02_double.x, 3, shpalloc returns error code when allocating 0 bytes,,0,Pass 13 | test_shmem_shpalloc_02_char.x, 3, shpalloc returns error code when allocating 0 bytes,,0,Pass 14 | test_shmem_shpalloc_02_logical.x, 3, shpalloc returns error code when allocating 0 bytes,,0,Pass 15 | # The following test will work with the next version of the testrunner (support for setting environment variables) 16 | test_shmem_shpalloc_03_int4.x, 3, allocating more memory than available in sm heap fails,,0,Fail 17 | test_shmem_shpalloc_03_int8.x, 3, allocating more memory than available in sm heap fails,,0,Fail 18 | test_shmem_shpalloc_03_real4.x, 3, allocating more memory than available in sm heap fails,,0,Fail 19 | test_shmem_shpalloc_03_real8.x, 3, allocating more memory than available in sm heap fails,,0,Fail 20 | test_shmem_shpalloc_03_double.x, 3, allocating more memory than available in sm heap fails,,0,Fail 21 | test_shmem_shpalloc_03_char.x, 3, allocating more memory than available in sm heap fails,,0,Fail 22 | test_shmem_shpalloc_03_logical.x, 3, allocating more memory than available in sm heap fails,,0,Fail 23 | -------------------------------------------------------------------------------- /error_tests/Fortran/Makefile.opts: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | SHELL = /bin/sh 43 | SHMEM_F90 = oshfort 44 | SHMEM_F90FFLAGS = -g -O0 -fcray-pointer 45 | #SHMEM_F90LFLAGS = -ggdb -O0 -fcray-pointer 46 | TEST_RUNNER = ../../common/testrunner.pl 47 | -------------------------------------------------------------------------------- /feature_tests/Fortran/Makefile.opts: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | SHELL = /bin/sh 43 | SHMEM_F90 = oshfort 44 | SHMEM_F90FFLAGS = -g -O0 -fcray-pointer 45 | #SHMEM_F90LFLAGS = -ggdb -O0 -fcray-pointer 46 | TEST_RUNNER = ../../common/testrunner.pl 47 | -------------------------------------------------------------------------------- /error_tests/Fortran/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | 43 | include Makefile.opts 44 | 45 | MAKECMD=make -C 46 | 47 | all: 48 | $(MAKECMD) atomic 49 | $(MAKECMD) transfer 50 | 51 | run: 52 | $(MAKECMD) atomic run 53 | $(MAKECMD) transfer run 54 | 55 | clean: 56 | $(MAKECMD) atomic clean 57 | $(MAKECMD) transfer clean 58 | -------------------------------------------------------------------------------- /error_tests/Fortran/atomic/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | include ../Makefile.opts 43 | 44 | F90_TESTS = $(wildcard *.f90) 45 | 46 | F90_EXES = $(F90_TESTS:.f90=.x) 47 | 48 | EXES = $(F90_EXES) 49 | 50 | .PHONY: clean all default 51 | 52 | all default: $(EXES) 53 | 54 | .SUFFIXES: .x 55 | 56 | %.x: %.f90 57 | -$(SHMEM_F90) $(SHMEM_F90FFLAGS) -o $@ $^ 58 | 59 | clean: 60 | rm -f $(EXES) 61 | 62 | run: $(EXES) 63 | @../${TEST_RUNNER} 64 | -------------------------------------------------------------------------------- /error_tests/Fortran/transfer/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | include ../Makefile.opts 43 | 44 | F90_TESTS = $(wildcard *.f90) 45 | 46 | F90_EXES = $(F90_TESTS:.f90=.x) 47 | 48 | EXES = $(F90_EXES) 49 | 50 | .PHONY: clean all default 51 | 52 | all default: $(EXES) 53 | 54 | .SUFFIXES: .x 55 | 56 | %.x: %.f90 57 | -$(SHMEM_F90) $(SHMEM_F90FFLAGS) -o $@ $^ 58 | 59 | clean: 60 | rm -f $(EXES) 61 | 62 | run: $(EXES) 63 | @../${TEST_RUNNER} 64 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | include ../Makefile.opts 43 | 44 | F90_TESTS = $(wildcard *.f90) 45 | 46 | F90_EXES = $(F90_TESTS:.f90=.x) 47 | 48 | EXES = $(F90_EXES) 49 | 50 | .PHONY: clean all default 51 | 52 | all default: $(EXES) 53 | 54 | .SUFFIXES: .x 55 | 56 | %.x: %.f90 57 | $(SHMEM_F90) $(SHMEM_F90FFLAGS) -o $@ $^ 58 | 59 | clean: 60 | rm -f $(EXES) 61 | 62 | run: $(EXES) 63 | @../${TEST_RUNNER} 64 | -------------------------------------------------------------------------------- /feature_tests/Fortran/atomic/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | include ../Makefile.opts 43 | 44 | F90_TESTS = $(wildcard *.f90) 45 | 46 | F90_EXES = $(F90_TESTS:.f90=.x) 47 | 48 | EXES = $(F90_EXES) 49 | 50 | .PHONY: clean all default 51 | 52 | all default: $(EXES) 53 | 54 | .SUFFIXES: .x 55 | 56 | %.x: %.f90 57 | -$(SHMEM_F90) $(SHMEM_F90FFLAGS) -o $@ $^ 58 | 59 | clean: 60 | rm -f $(EXES) 61 | 62 | run: $(EXES) 63 | @../${TEST_RUNNER} 64 | -------------------------------------------------------------------------------- /feature_tests/Fortran/broadcast/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | include ../Makefile.opts 43 | 44 | F90_TESTS = $(wildcard *.f90) 45 | 46 | F90_EXES = $(F90_TESTS:.f90=.x) 47 | 48 | EXES = $(F90_EXES) 49 | 50 | .PHONY: clean all default 51 | 52 | all default: $(EXES) 53 | 54 | .SUFFIXES: .x 55 | 56 | %.x: %.f90 57 | $(SHMEM_F90) $(SHMEM_F90FFLAGS) -o $@ $^ 58 | 59 | clean: 60 | rm -f $(EXES) 61 | 62 | run: $(EXES) 63 | @../${TEST_RUNNER} 64 | -------------------------------------------------------------------------------- /feature_tests/Fortran/collect/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | include ../Makefile.opts 43 | 44 | F90_TESTS = $(wildcard *.f90) 45 | 46 | F90_EXES = $(F90_TESTS:.f90=.x) 47 | 48 | EXES = $(F90_EXES) 49 | 50 | .PHONY: clean all default 51 | 52 | all default: $(EXES) 53 | 54 | .SUFFIXES: .x 55 | 56 | %.x: %.f90 57 | -$(SHMEM_F90) $(SHMEM_F90FFLAGS) -o $@ $^ 58 | 59 | clean: 60 | rm -f $(EXES) 61 | 62 | run: $(EXES) 63 | @../${TEST_RUNNER} 64 | -------------------------------------------------------------------------------- /feature_tests/Fortran/transfer/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | include ../Makefile.opts 43 | 44 | F90_TESTS = $(wildcard *.f90) 45 | 46 | F90_EXES = $(F90_TESTS:.f90=.x) 47 | 48 | EXES = $(F90_EXES) 49 | 50 | .PHONY: clean all default 51 | 52 | all default: $(EXES) 53 | 54 | .SUFFIXES: .x 55 | 56 | %.x: %.f90 57 | -$(SHMEM_F90) $(SHMEM_F90FFLAGS) -o $@ $^ 58 | 59 | clean: 60 | rm -f $(EXES) 61 | 62 | run: $(EXES) 63 | @../${TEST_RUNNER} 64 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | include ../Makefile.opts 43 | 44 | F90_TESTS = $(wildcard *.f90) 45 | 46 | F90_EXES = $(F90_TESTS:.f90=.x) 47 | 48 | EXES = $(F90_EXES) 49 | 50 | .PHONY: clean all default 51 | 52 | all default: $(EXES) 53 | 54 | .SUFFIXES: .x 55 | 56 | %.x: %.f90 57 | $(SHMEM_F90) $(SHMEM_F90FFLAGS) -o $@ $^ 58 | 59 | clean: 60 | rm -f $(EXES) 61 | 62 | run: $(EXES) 63 | @../${TEST_RUNNER} 64 | -------------------------------------------------------------------------------- /feature_tests/Fortran/reductions/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | include ../Makefile.opts 43 | 44 | F90_TESTS = $(wildcard *.f90) 45 | 46 | F90_EXES = $(F90_TESTS:.f90=.x) 47 | 48 | EXES = $(F90_EXES) 49 | 50 | .PHONY: clean all default 51 | 52 | all default: $(EXES) 53 | 54 | .SUFFIXES: .x 55 | 56 | %.x: %.f90 57 | -$(SHMEM_F90) $(SHMEM_F90FFLAGS) -o $@ $^ 58 | 59 | clean: 60 | rm -f $(EXES) 61 | 62 | run: $(EXES) 63 | @../${TEST_RUNNER} 64 | -------------------------------------------------------------------------------- /feature_tests/Fortran/atomic/test_parameters.conf: -------------------------------------------------------------------------------- 1 | test_shmem_swap_01_int4.x, 2, shmem_swap with SAVE variables,,0,Pass 2 | test_shmem_swap_01_int8.x, 2, shmem_swap with SAVE variables,,0,Pass 3 | test_shmem_swap_02_int4.x, 2, shmem_swap with COMMON variables,,0,Pass 4 | test_shmem_swap_02_int8.x, 2, shmem_swap with COMMON variables,,0,Pass 5 | test_shmem_swap_03_int4.x, 2, shmem_swap with shpalloc'ed variables,,0,Pass 6 | test_shmem_swap_03_int8.x, 2, shmem_swap with shpalloc'ed variables,,0,Pass 7 | test_shmem_cswap_01_int4.x, 2, shmem_cswap with SAVE variables,,0,Pass 8 | test_shmem_cswap_01_int8.x, 2, shmem_cswap with SAVE variables,,0,Pass 9 | test_shmem_cswap_02_int4.x, 2, shmem_cswap with COMMON variables,,0,Pass 10 | test_shmem_cswap_02_int8.x, 2, shmem_cswap with COMMON variables,,0,Pass 11 | test_shmem_cswap_03_int4.x, 2, shmem_cswap with shpalloc'ed variables,,0,Pass 12 | test_shmem_cswap_03_int8.x, 2, shmem_cswap with shpalloc'ed variables,,0,Pass 13 | test_shmem_add_01_int4.x, 2, shmem_add with SAVE variables,,0,Pass 14 | test_shmem_add_01_int8.x, 2, shmem_add with SAVE variables,,0,Pass 15 | test_shmem_add_02_int4.x, 2, shmem_add with COMMON variables,,0,Pass 16 | test_shmem_add_02_int8.x, 2, shmem_add with COMMON variables,,0,Pass 17 | test_shmem_add_03_int4.x, 2, shmem_add with shpalloc'ed variables,,0,Pass 18 | test_shmem_add_03_int8.x, 2, shmem_add with shpalloc'ed variables,,0,Pass 19 | test_shmem_fadd_01_int4.x, 2, shmem_fadd with SAVE variables,,0,Pass 20 | test_shmem_fadd_01_int8.x, 2, shmem_fadd with SAVE variables,,0,Pass 21 | test_shmem_inc_01_int4.x, 2, shmem_inc with SAVE variables,,0,Pass 22 | test_shmem_inc_01_int8.x, 2, shmem_inc with SAVE variables,,0,Pass 23 | test_shmem_inc_02_int4.x, 2, shmem_inc with COMMON variables,,0,Pass 24 | test_shmem_inc_02_int8.x, 2, shmem_inc with COMMON variables,,0,Pass 25 | test_shmem_inc_03_int4.x, 2, shmem_inc with shpalloc'ed variables,,0,Pass 26 | test_shmem_inc_03_int8.x, 2, shmem_inc with shpalloc'ed variables,,0,Pass 27 | test_shmem_finc_01_int4.x, 2, shmem_finc with SAVE variables,,0,Pass 28 | test_shmem_finc_01_int8.x, 2, shmem_finc with SAVE variables,,0,Pass 29 | test_shmem_finc_02_int4.x, 2, shmem_finc with COMMON variables,,0,Pass 30 | test_shmem_finc_02_int8.x, 2, shmem_finc with COMMON variables,,0,Pass 31 | test_shmem_finc_02_int4.x, 2, shmem_finc with COMMON variables,,0,Pass 32 | test_shmem_finc_02_int8.x, 2, shmem_finc with COMMON variables,,0,Pass 33 | test_shmem_finc_03_int4.x, 2, shmem_finc with shpalloc'ed variables,,0,Pass 34 | test_shmem_finc_03_int8.x, 2, shmem_finc with shpalloc'ed variables,,0,Pass 35 | -------------------------------------------------------------------------------- /feature_tests/Fortran/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | 43 | include Makefile.opts 44 | 45 | MAKECMD=make -C 46 | 47 | all: 48 | $(MAKECMD) accessibility 49 | $(MAKECMD) alloc 50 | $(MAKECMD) atomic 51 | $(MAKECMD) broadcast 52 | $(MAKECMD) collect 53 | $(MAKECMD) reductions 54 | $(MAKECMD) transfer 55 | 56 | run: 57 | $(MAKECMD) accessibility run 58 | $(MAKECMD) alloc run 59 | $(MAKECMD) atomic run 60 | $(MAKECMD) broadcast run 61 | $(MAKECMD) collect run 62 | $(MAKECMD) reductions run 63 | $(MAKECMD) transfer run 64 | 65 | clean: 66 | $(MAKECMD) accessibility clean 67 | $(MAKECMD) alloc clean 68 | $(MAKECMD) atomic clean 69 | $(MAKECMD) broadcast clean 70 | $(MAKECMD) collect clean 71 | $(MAKECMD) reductions clean 72 | $(MAKECMD) transfer clean 73 | -------------------------------------------------------------------------------- /error_tests/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | 43 | SHELL = /bin/sh 44 | 45 | help: 46 | @echo 47 | @echo "Please use one of the following targets:" 48 | @echo 49 | @echo " * For Fortran : make F_error_tests, make F_error_tests-run" 50 | @echo " * all : compile both C and Fortran tests" 51 | @echo " * run : compile both C and Fortran tests, then run them 52 | @echo " * clean : removes object and executable files" 53 | @echo 54 | 55 | ERROR_TESTS = F_error_tests 56 | ERROR_TESTS_RUN = $(addsuffix -run, $(ERROR_TESTS)) 57 | 58 | 59 | .PHONY: $(ERROR_TESTS) \ 60 | all clean 61 | 62 | all: $(ERROR_TESTS) 63 | 64 | run: $(ERROR_TESTS_RUN) 65 | 66 | F_error_tests: 67 | cd ./Fortran; $(MAKE) all 68 | 69 | F_error_tests-run: F_error_tests 70 | cd ./Fortran; $(MAKE) run 71 | 72 | clean: 73 | cd ./Fortran; $(MAKE) $@ 74 | 75 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_01.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | integer :: me, npes 48 | logical :: rc 49 | 50 | ! SHMEM function definitions 51 | integer :: shmem_my_pe, shmem_n_pes 52 | 53 | call shmem_init() 54 | 55 | me = shmem_my_pe() 56 | npes = shmem_n_pes() 57 | 58 | if(npes .lt. 2 ) then 59 | write(*,*) 'This test requires 2+ PEs to run.' 60 | stop 61 | end if 62 | 63 | if(me .eq. 0) then 64 | rc = shmem_pe_accessible(npes - 1); 65 | if(rc .eqv. .TRUE.) then 66 | write (*,*) 'test_shmem_acc_01: Passed' 67 | else 68 | write (*,*) 'test_shmem_acc_01: Failed' 69 | end if 70 | end if 71 | 72 | call shmem_finalize() 73 | 74 | end program test_shmem_accessible 75 | 76 | 77 | 78 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_02.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | integer :: me, npes 48 | logical :: rc 49 | 50 | ! SHMEM function definitions 51 | integer :: shmem_my_pe, shmem_n_pes 52 | 53 | call shmem_init() 54 | 55 | me = shmem_my_pe() 56 | npes = shmem_n_pes() 57 | 58 | if(npes .lt. 2 ) then 59 | write(*,*) 'This test requires 2+ PEs to run.' 60 | stop 61 | end if 62 | 63 | if(me .eq. 0) then 64 | rc = shmem_pe_accessible(npes + 1); 65 | 66 | if(rc .eqv. .TRUE.) then 67 | write (*,*) 'test_shmem_acc_02: Failed' 68 | else 69 | write (*,*) 'test_shmem_acc_02: Passed' 70 | end if 71 | end if 72 | 73 | call shmem_finalize() 74 | 75 | end program test_shmem_accessible 76 | 77 | 78 | 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_parameters.conf: -------------------------------------------------------------------------------- 1 | test_shmem_acc_01.x, 2, shmem_pe_accessible to an existing pe,,0,Pass 2 | test_shmem_acc_02.x, 2, shmem_pe_accessible to an invalid pe number,,0,Pass 3 | test_shmem_acc_mem_01_int4.x, 2, shmem_addr_accessible to SAVE variables,,0,Pass 4 | test_shmem_acc_mem_01_int8.x, 2, shmem_addr_accessible to SAVE variables,,0,Pass 5 | test_shmem_acc_mem_01_real4.x, 2, shmem_addr_accessible to SAVE variables,,0,Pass 6 | test_shmem_acc_mem_01_real8.x, 2, shmem_addr_accessible to SAVE variables,,0,Pass 7 | test_shmem_acc_mem_01_double.x, 2, shmem_addr_accessible to SAVE variables,,0,Pass 8 | test_shmem_acc_mem_01_char.x, 2, shmem_addr_accessible to SAVE variables,,0,Pass 9 | test_shmem_acc_mem_01_logical.x, 2, shmem_addr_accessible to SAVE variables,,0,Pass 10 | test_shmem_acc_mem_02_int4.x, 2, shmem_addr_accessible to COMMON variables,,0,Pass 11 | test_shmem_acc_mem_02_int8.x, 2, shmem_addr_accessible to COMMON variables,,0,Pass 12 | test_shmem_acc_mem_02_real4.x, 2, shmem_addr_accessible to COMMON variables,,0,Pass 13 | test_shmem_acc_mem_02_real8.x, 2, shmem_addr_accessible to COMMON variables,,0,Pass 14 | test_shmem_acc_mem_02_double.x, 2, shmem_addr_accessible to COMMON variables,,0,Pass 15 | test_shmem_acc_mem_02_char.x, 2, shmem_addr_accessible to COMMON variables,,0,Pass 16 | test_shmem_acc_mem_02_logical.x, 2, shmem_addr_accessible to COMMON variables,,0,Pass 17 | test_shmem_acc_mem_03_int4.x, 2, shmem_addr_accessible to shpalloc'ed variables,,0,Pass 18 | test_shmem_acc_mem_03_int8.x, 2, shmem_addr_accessible to shpalloc'ed variables,,0,Pass 19 | test_shmem_acc_mem_03_real4.x, 2, shmem_addr_accessible to shpalloc'ed variables,,0,Pass 20 | test_shmem_acc_mem_03_real8.x, 2, shmem_addr_accessible to shpalloc'ed variables,,0,Pass 21 | test_shmem_acc_mem_03_double.x, 2, shmem_addr_accessible to shpalloc'ed variables,,0,Pass 22 | test_shmem_acc_mem_03_char.x, 2, shmem_addr_accessible to shpalloc'ed variables,,0,Pass 23 | test_shmem_acc_mem_03_logical.x, 2, shmem_addr_accessible to shpalloc'ed variables,,0,Pass 24 | test_shmem_acc_mem_04_int4.x, 2, shmem_addr_accessible to non remotely accessible variables,,0,Pass 25 | test_shmem_acc_mem_04_int8.x, 2, shmem_addr_accessible to non remotely accessible variables,,0,Pass 26 | test_shmem_acc_mem_04_real4.x, 2, shmem_addr_accessible to non remotely accessible variables,,0,Pass 27 | test_shmem_acc_mem_04_real8.x, 2, shmem_addr_accessible to non remotely accessible variables,,0,Pass 28 | test_shmem_acc_mem_04_double.x, 2, shmem_addr_accessible to non remotely accessible variables,,0,Pass 29 | test_shmem_acc_mem_04_char.x, 2, shmem_addr_accessible to non remotely accessible variables,,0,Pass 30 | test_shmem_acc_mem_04_logical.x, 2, shmem_addr_accessible to non remotely accessible variables,,0,Pass 31 | test_shmem_acc_mem_04_int4.x, 2, shmem_addr_accessible to non remotely accessible variables,,0,Pass 32 | test_shmem_acc_mem_04_int8.x, 2, shmem_addr_accessible to non remotely accessible variables,,0,Pass 33 | -------------------------------------------------------------------------------- /feature_tests/C/test_shmem_global_exit.c: -------------------------------------------------------------------------------- 1 | /* 2 | * 3 | * Copyright (c) 2011 - 2015 4 | * University of Houston System and UT-Battelle, LLC. 5 | * Copyright (c) 2009 - 2015 6 | * Silicon Graphics International Corp. SHMEM is copyrighted 7 | * by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | * (shmem) is released by Open Source Software Solutions, Inc., under an 9 | * agreement with Silicon Graphics International Corp. (SGI). 10 | * 11 | * All rights reserved. 12 | * 13 | * Redistribution and use in source and binary forms, with or without 14 | * modification, are permitted provided that the following conditions 15 | * are met: 16 | * 17 | * o Redistributions of source code must retain the above copyright notice, 18 | * this list of conditions and the following disclaimer. 19 | * 20 | * o Redistributions in binary form must reproduce the above copyright 21 | * notice, this list of conditions and the following disclaimer in the 22 | * documentation and/or other materials provided with the distribution. 23 | * 24 | * o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | * nor the names of its contributors may be used to endorse or promote 26 | * products derived from this software without specific prior written 27 | * permission. 28 | * 29 | * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | * 41 | */ 42 | 43 | 44 | /* 45 | * Calls tested 46 | * shmem_global_exit 47 | * 48 | * All PEs sleep for a finite number of seconds while PE0 49 | * calls shmem_global_exit. 50 | */ 51 | 52 | #include 53 | #include 54 | #include 55 | #include 56 | #include 57 | int 58 | main (int argv, char **argc) 59 | { 60 | int me; 61 | int status=99; 62 | 63 | shmem_init (); 64 | me = shmem_my_pe (); 65 | 66 | if (me == 0) { 67 | shmem_global_exit (status); 68 | } 69 | else { 70 | sleep (me*3); 71 | } 72 | shmem_barrier_all (); 73 | 74 | /* PE-0 reach this point if shmem_global_exit is a no-op */ 75 | if( me == 0) { 76 | printf ("Test shmem_global_exit: Failed\n"); 77 | } 78 | 79 | shmem_finalize (); 80 | 81 | return 0; 82 | } 83 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_01_real4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | real*4, save :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | 54 | call shmem_init() 55 | me = shmem_my_pe() 56 | npes = shmem_n_pes() 57 | 58 | if(npes .lt. 2 ) then 59 | write(*,*) 'This test requires 2+ PEs to run.' 60 | stop 61 | end if 62 | 63 | call shmem_barrier_all() 64 | 65 | if (me .eq. 0) then 66 | if( shmem_addr_accessible(dest, 1) ) then 67 | write(*,*) 'test_shmem_acc_mem_01_real*4: Passed' 68 | else 69 | write(*,*) 'test_shmem_acc_mem_01_real*4: Failed' 70 | end if 71 | 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_01_real8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | real*8, save :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | 54 | call shmem_init() 55 | me = shmem_my_pe() 56 | npes = shmem_n_pes() 57 | 58 | if(npes .lt. 2 ) then 59 | write(*,*) 'This test requires 2+ PEs to run.' 60 | stop 61 | end if 62 | 63 | call shmem_barrier_all() 64 | 65 | if (me .eq. 0) then 66 | if( shmem_addr_accessible(dest, 1) ) then 67 | write(*,*) 'test_shmem_acc_mem_01_real*8: Passed' 68 | else 69 | write(*,*) 'test_shmem_acc_mem_01_real*8: Failed' 70 | end if 71 | 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_01_logical.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | logical, save :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | 54 | call shmem_init() 55 | me = shmem_my_pe() 56 | npes = shmem_n_pes() 57 | 58 | if(npes .lt. 2 ) then 59 | write(*,*) 'This test requires 2+ PEs to run.' 60 | stop 61 | end if 62 | 63 | call shmem_barrier_all() 64 | 65 | if (me .eq. 0) then 66 | if( shmem_addr_accessible(dest, 1) ) then 67 | write(*,*) 'test_shmem_acc_mem_01_logical: Passed' 68 | else 69 | write(*,*) 'test_shmem_acc_mem_01_logical: Failed' 70 | end if 71 | 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_01_char.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | character, save :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | 54 | call shmem_init() 55 | me = shmem_my_pe() 56 | npes = shmem_n_pes() 57 | 58 | if(npes .lt. 2 ) then 59 | write(*,*) 'This test requires 2+ PEs to run.' 60 | stop 61 | end if 62 | 63 | call shmem_barrier_all() 64 | 65 | if (me .eq. 0) then 66 | if( shmem_addr_accessible(dest, 1) ) then 67 | write(*,*) 'test_shmem_acc_mem_01_character: Passed' 68 | else 69 | write(*,*) 'test_shmem_acc_mem_01_character: Failed' 70 | end if 71 | 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_01_int4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | integer*4, save :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | 54 | call shmem_init() 55 | me = shmem_my_pe() 56 | npes = shmem_n_pes() 57 | 58 | if(npes .lt. 2 ) then 59 | write(*,*) 'This test requires 2+ PEs to run.' 60 | stop 61 | end if 62 | 63 | call shmem_barrier_all() 64 | 65 | if (me .eq. 0) then 66 | if( shmem_addr_accessible(dest, 1) ) then 67 | write(*,*) 'test_shmem_acc_mem_01_integer*4: Passed' 68 | else 69 | write(*,*) 'test_shmem_acc_mem_01_integer*4: Failed' 70 | end if 71 | 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_01_int8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | integer*8, save :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | 54 | call shmem_init() 55 | me = shmem_my_pe() 56 | npes = shmem_n_pes() 57 | 58 | if(npes .lt. 2 ) then 59 | write(*,*) 'This test requires 2+ PEs to run.' 60 | stop 61 | end if 62 | 63 | call shmem_barrier_all() 64 | 65 | if (me .eq. 0) then 66 | if( shmem_addr_accessible(dest, 1) ) then 67 | write(*,*) 'test_shmem_acc_mem_01_integer*8: Passed' 68 | else 69 | write(*,*) 'test_shmem_acc_mem_01_integer*8: Failed' 70 | end if 71 | 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_01_double.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | double precision, save :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | 54 | call shmem_init() 55 | me = shmem_my_pe() 56 | npes = shmem_n_pes() 57 | 58 | if(npes .lt. 2 ) then 59 | write(*,*) 'This test requires 2+ PEs to run.' 60 | stop 61 | end if 62 | 63 | call shmem_barrier_all() 64 | 65 | if (me .eq. 0) then 66 | if( shmem_addr_accessible(dest, 1) ) then 67 | write(*,*) 'test_shmem_acc_mem_01_double precision: Passed' 68 | else 69 | write(*,*) 'test_shmem_acc_mem_01_double precision: Failed' 70 | end if 71 | 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_02_real4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | real*4 :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | common /globalvars/ dest 52 | 53 | ! SHMEM function definitions 54 | integer :: shmem_my_pe, shmem_n_pes 55 | 56 | call shmem_init() 57 | me = shmem_my_pe() 58 | npes = shmem_n_pes() 59 | 60 | if(npes .lt. 2 ) then 61 | write(*,*) 'This test requires 2+ PEs to run.' 62 | stop 63 | end if 64 | 65 | call shmem_barrier_all() 66 | 67 | if (me .eq. 0) then 68 | if( shmem_addr_accessible(dest, 1) ) then 69 | write(*,*) 'test_shmem_acc_mem_02_real*4: Passed' 70 | else 71 | write(*,*) 'test_shmem_acc_mem_02_real*4: Failed' 72 | end if 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | call shmem_finalize() 78 | 79 | end program test_shmem_accessible 80 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_02_real8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | real*8 :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | common /globalvars/ dest 52 | 53 | ! SHMEM function definitions 54 | integer :: shmem_my_pe, shmem_n_pes 55 | 56 | call shmem_init() 57 | me = shmem_my_pe() 58 | npes = shmem_n_pes() 59 | 60 | if(npes .lt. 2 ) then 61 | write(*,*) 'This test requires 2+ PEs to run.' 62 | stop 63 | end if 64 | 65 | call shmem_barrier_all() 66 | 67 | if (me .eq. 0) then 68 | if( shmem_addr_accessible(dest, 1) ) then 69 | write(*,*) 'test_shmem_acc_mem_02_real*8: Passed' 70 | else 71 | write(*,*) 'test_shmem_acc_mem_02_real*8: Failed' 72 | end if 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | call shmem_finalize() 78 | 79 | end program test_shmem_accessible 80 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_02_logical.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | logical :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | common /globalvars/ dest 52 | 53 | ! SHMEM function definitions 54 | integer :: shmem_my_pe, shmem_n_pes 55 | 56 | call shmem_init() 57 | me = shmem_my_pe() 58 | npes = shmem_n_pes() 59 | 60 | if(npes .lt. 2 ) then 61 | write(*,*) 'This test requires 2+ PEs to run.' 62 | stop 63 | end if 64 | 65 | call shmem_barrier_all() 66 | 67 | if (me .eq. 0) then 68 | if( shmem_addr_accessible(dest, 1) ) then 69 | write(*,*) 'test_shmem_acc_mem_02_logical: Passed' 70 | else 71 | write(*,*) 'test_shmem_acc_mem_02_logical: Failed' 72 | end if 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | call shmem_finalize() 78 | 79 | end program test_shmem_accessible 80 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_02_char.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | character :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | common /globalvars/ dest 52 | 53 | ! SHMEM function definitions 54 | integer :: shmem_my_pe, shmem_n_pes 55 | 56 | call shmem_init() 57 | me = shmem_my_pe() 58 | npes = shmem_n_pes() 59 | 60 | if(npes .lt. 2 ) then 61 | write(*,*) 'This test requires 2+ PEs to run.' 62 | stop 63 | end if 64 | 65 | call shmem_barrier_all() 66 | 67 | if (me .eq. 0) then 68 | if( shmem_addr_accessible(dest, 1) ) then 69 | write(*,*) 'test_shmem_acc_mem_02_character: Passed' 70 | else 71 | write(*,*) 'test_shmem_acc_mem_02_character: Failed' 72 | end if 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | call shmem_finalize() 78 | 79 | end program test_shmem_accessible 80 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_02_int4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | integer*4 :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | common /globalvars/ dest 52 | 53 | ! SHMEM function definitions 54 | integer :: shmem_my_pe, shmem_n_pes 55 | 56 | call shmem_init() 57 | me = shmem_my_pe() 58 | npes = shmem_n_pes() 59 | 60 | if(npes .lt. 2 ) then 61 | write(*,*) 'This test requires 2+ PEs to run.' 62 | stop 63 | end if 64 | 65 | call shmem_barrier_all() 66 | 67 | if (me .eq. 0) then 68 | if( shmem_addr_accessible(dest, 1) ) then 69 | write(*,*) 'test_shmem_acc_mem_02_integer*4: Passed' 70 | else 71 | write(*,*) 'test_shmem_acc_mem_02_integer*4: Failed' 72 | end if 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | call shmem_finalize() 78 | 79 | end program test_shmem_accessible 80 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_02_int8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | integer*8 :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | common /globalvars/ dest 52 | 53 | ! SHMEM function definitions 54 | integer :: shmem_my_pe, shmem_n_pes 55 | 56 | call shmem_init() 57 | me = shmem_my_pe() 58 | npes = shmem_n_pes() 59 | 60 | if(npes .lt. 2 ) then 61 | write(*,*) 'This test requires 2+ PEs to run.' 62 | stop 63 | end if 64 | 65 | call shmem_barrier_all() 66 | 67 | if (me .eq. 0) then 68 | if( shmem_addr_accessible(dest, 1) ) then 69 | write(*,*) 'test_shmem_acc_mem_02_integer*8: Passed' 70 | else 71 | write(*,*) 'test_shmem_acc_mem_02_integer*8: Failed' 72 | end if 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | call shmem_finalize() 78 | 79 | end program test_shmem_accessible 80 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_04_real4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | real*4 :: remote_dest(2) 49 | 50 | integer :: me, npes 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | ! -- 54 | 55 | call shmem_init() 56 | me = shmem_my_pe() 57 | npes = shmem_n_pes() 58 | 59 | if(npes .lt. 2 ) then 60 | write(*,*) 'This test requires 2+ PEs to run.' 61 | stop 62 | end if 63 | 64 | call shmem_barrier_all() 65 | 66 | if (me .eq. 0) then 67 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 68 | write(*,*) 'test_shmem_acc_mem_04_real*4: Passed' 69 | else 70 | write(*,*) 'test_shmem_acc_mem_04_real*4: Failed' 71 | end if 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_04_real8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | real*8 :: remote_dest(2) 49 | 50 | integer :: me, npes 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | ! -- 54 | 55 | call shmem_init() 56 | me = shmem_my_pe() 57 | npes = shmem_n_pes() 58 | 59 | if(npes .lt. 2 ) then 60 | write(*,*) 'This test requires 2+ PEs to run.' 61 | stop 62 | end if 63 | 64 | call shmem_barrier_all() 65 | 66 | if (me .eq. 0) then 67 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 68 | write(*,*) 'test_shmem_acc_mem_04_real*8: Passed' 69 | else 70 | write(*,*) 'test_shmem_acc_mem_04_real*8: Failed' 71 | end if 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_02_double.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | double precision :: dest(2) 48 | 49 | integer :: me, npes 50 | 51 | common /globalvars/ dest 52 | 53 | ! SHMEM function definitions 54 | integer :: shmem_my_pe, shmem_n_pes 55 | 56 | call shmem_init() 57 | me = shmem_my_pe() 58 | npes = shmem_n_pes() 59 | 60 | if(npes .lt. 2 ) then 61 | write(*,*) 'This test requires 2+ PEs to run.' 62 | stop 63 | end if 64 | 65 | call shmem_barrier_all() 66 | 67 | if (me .eq. 0) then 68 | if( shmem_addr_accessible(dest, 1) ) then 69 | write(*,*) 'test_shmem_acc_mem_02_double precision: Passed' 70 | else 71 | write(*,*) 'test_shmem_acc_mem_02_double precision: Failed' 72 | end if 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | call shmem_finalize() 78 | 79 | end program test_shmem_accessible 80 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_04_logical.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | logical :: remote_dest(2) 49 | 50 | integer :: me, npes 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | ! -- 54 | 55 | call shmem_init() 56 | me = shmem_my_pe() 57 | npes = shmem_n_pes() 58 | 59 | if(npes .lt. 2 ) then 60 | write(*,*) 'This test requires 2+ PEs to run.' 61 | stop 62 | end if 63 | 64 | call shmem_barrier_all() 65 | 66 | if (me .eq. 0) then 67 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 68 | write(*,*) 'test_shmem_acc_mem_04_logical: Passed' 69 | else 70 | write(*,*) 'test_shmem_acc_mem_04_logical: Failed' 71 | end if 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_04_char.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | character :: remote_dest(2) 49 | 50 | integer :: me, npes 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | ! -- 54 | 55 | call shmem_init() 56 | me = shmem_my_pe() 57 | npes = shmem_n_pes() 58 | 59 | if(npes .lt. 2 ) then 60 | write(*,*) 'This test requires 2+ PEs to run.' 61 | stop 62 | end if 63 | 64 | call shmem_barrier_all() 65 | 66 | if (me .eq. 0) then 67 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 68 | write(*,*) 'test_shmem_acc_mem_04_character: Passed' 69 | else 70 | write(*,*) 'test_shmem_acc_mem_04_character: Failed' 71 | end if 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_04_int4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | integer*4 :: remote_dest(2) 49 | 50 | integer :: me, npes 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | ! -- 54 | 55 | call shmem_init() 56 | me = shmem_my_pe() 57 | npes = shmem_n_pes() 58 | 59 | if(npes .lt. 2 ) then 60 | write(*,*) 'This test requires 2+ PEs to run.' 61 | stop 62 | end if 63 | 64 | call shmem_barrier_all() 65 | 66 | if (me .eq. 0) then 67 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 68 | write(*,*) 'test_shmem_acc_mem_04_integer*4: Passed' 69 | else 70 | write(*,*) 'test_shmem_acc_mem_04_integer*4: Failed' 71 | end if 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_04_int8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | integer*8 :: remote_dest(2) 49 | 50 | integer :: me, npes 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | ! -- 54 | 55 | call shmem_init() 56 | me = shmem_my_pe() 57 | npes = shmem_n_pes() 58 | 59 | if(npes .lt. 2 ) then 60 | write(*,*) 'This test requires 2+ PEs to run.' 61 | stop 62 | end if 63 | 64 | call shmem_barrier_all() 65 | 66 | if (me .eq. 0) then 67 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 68 | write(*,*) 'test_shmem_acc_mem_04_integer*8: Passed' 69 | else 70 | write(*,*) 'test_shmem_acc_mem_04_integer*8: Failed' 71 | end if 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_04_double.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | double precision :: remote_dest(2) 49 | 50 | integer :: me, npes 51 | ! SHMEM function definitions 52 | integer :: shmem_my_pe, shmem_n_pes 53 | ! -- 54 | 55 | call shmem_init() 56 | me = shmem_my_pe() 57 | npes = shmem_n_pes() 58 | 59 | if(npes .lt. 2 ) then 60 | write(*,*) 'This test requires 2+ PEs to run.' 61 | stop 62 | end if 63 | 64 | call shmem_barrier_all() 65 | 66 | if (me .eq. 0) then 67 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 68 | write(*,*) 'test_shmem_acc_mem_04_double precision: Passed' 69 | else 70 | write(*,*) 'test_shmem_acc_mem_04_double precision: Failed' 71 | end if 72 | end if 73 | 74 | call shmem_barrier_all() 75 | 76 | call shmem_finalize() 77 | 78 | end program test_shmem_accessible 79 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_02_int4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: numElements = 0 49 | 50 | integer*4 :: array(1) 51 | pointer (ptr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(ptr, numElements, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .eq. -1) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shmem_finalize() 80 | 81 | end program 82 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_02_int8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: numElements = 0 49 | 50 | integer*8 :: array(1) 51 | pointer (ptr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(ptr, numElements*2, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .eq. -1) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shmem_finalize() 80 | 81 | end program 82 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_02_logical.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: numElements = 0 49 | 50 | logical :: array(1) 51 | pointer (ptr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(ptr, numElements, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .eq. -1) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shmem_finalize() 80 | 81 | end program 82 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_02_real4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: numElements = 0 49 | 50 | real*4 :: array(1) 51 | pointer (ptr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(ptr, numElements, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .eq. -1) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shmem_finalize() 80 | 81 | end program 82 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_02_real8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: numElements = 0 49 | 50 | real*8 :: array(1) 51 | pointer (ptr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(ptr, numElements*2, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .eq. -1) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shmem_finalize() 80 | 81 | end program 82 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_02_char.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: numElements = 0 49 | 50 | character :: array(1) 51 | pointer (ptr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(ptr, numElements / 4, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .eq. -1) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shmem_finalize() 80 | 81 | end program 82 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_02_double.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: numElements = 0 49 | 50 | double precision :: array(1) 51 | pointer (ptr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(ptr, numElements*2, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .eq. -1) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shmem_finalize() 80 | 81 | end program 82 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_03_int4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_shpalloc 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | integer, parameter :: nelems = 1024000000 48 | 49 | integer*4 :: array(1) 50 | pointer (array_addr, array) 51 | 52 | integer :: errcode, me, npes 53 | integer, parameter :: abort = 0 54 | character*(*), parameter :: TEST_NAME='shpalloc' 55 | 56 | ! Function return value types 57 | integer :: shmem_my_pe, shmem_n_pes 58 | 59 | call shmem_init() 60 | 61 | me = shmem_my_pe() 62 | npes = shmem_n_pes() 63 | 64 | ! allocate remotely accessible block 65 | call shpalloc(array_addr, nelems, errcode, abort) 66 | 67 | if(me .eq. 0) then 68 | if(errcode .ne. -2) then 69 | write (*,*) TEST_NAME, ': Passed' 70 | else 71 | write (*,*) TEST_NAME, ': Failed' 72 | end if 73 | end if 74 | 75 | ! All PEs wait until PE 0 has finished. 76 | call shmem_barrier_all() 77 | 78 | call shpdeallc(array_addr, errcode, abort) 79 | 80 | call shmem_finalize() 81 | 82 | end program 83 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_03_logical.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_shpalloc 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | integer, parameter :: nelems = 1024000000 48 | 49 | logical :: array(1) 50 | pointer (array_addr, array) 51 | 52 | integer :: errcode, me, npes 53 | integer, parameter :: abort = 0 54 | character*(*), parameter :: TEST_NAME='shpalloc' 55 | 56 | ! Function return value types 57 | integer :: shmem_my_pe, shmem_n_pes 58 | 59 | call shmem_init() 60 | 61 | me = shmem_my_pe() 62 | npes = shmem_n_pes() 63 | 64 | ! allocate remotely accessible block 65 | call shpalloc(array_addr, nelems, errcode, abort) 66 | 67 | if(me .eq. 0) then 68 | if(errcode .ne. -2) then 69 | write (*,*) TEST_NAME, ': Passed' 70 | else 71 | write (*,*) TEST_NAME, ': Failed' 72 | end if 73 | end if 74 | 75 | ! All PEs wait until PE 0 has finished. 76 | call shmem_barrier_all() 77 | 78 | call shpdeallc(array_addr, errcode, abort) 79 | 80 | call shmem_finalize() 81 | 82 | end program 83 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_03_real4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_shpalloc 44 | implicit none 45 | include 'shmem.fh' 46 | 47 | integer, parameter :: nelems = 1024000000 48 | 49 | real*4 :: array(1) 50 | pointer (array_addr, array) 51 | 52 | integer :: errcode, me, npes 53 | integer, parameter :: abort = 0 54 | character*(*), parameter :: TEST_NAME='shpalloc' 55 | 56 | ! Function return value types 57 | integer :: shmem_my_pe, shmem_n_pes 58 | 59 | call shmem_init() 60 | 61 | me = shmem_my_pe() 62 | npes = shmem_n_pes() 63 | 64 | ! allocate remotely accessible block 65 | call shpalloc(array_addr, nelems, errcode, abort) 66 | 67 | if(me .eq. 0) then 68 | if(errcode .ne. -2) then 69 | write (*,*) TEST_NAME, ': Passed' 70 | else 71 | write (*,*) TEST_NAME, ': Failed' 72 | end if 73 | end if 74 | 75 | ! All PEs wait until PE 0 has finished. 76 | call shmem_barrier_all() 77 | 78 | call shpdeallc(array_addr, errcode, abort) 79 | 80 | call shmem_finalize() 81 | 82 | end program 83 | -------------------------------------------------------------------------------- /feature_tests/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | 43 | SHELL = /bin/sh 44 | 45 | help: 46 | @echo 47 | @echo "Please use one of the following targets:" 48 | @echo 49 | @echo " * For C : make C_feature_tests, make C_feature_tests-run " 50 | @echo " * For Fortran : make F_feature_tests, make F_feature_tests-run" 51 | @echo " * all : compile both C and Fortran tests" 52 | @echo " * run : compile both C and Fortran tests, then run them" 53 | @echo " * clean : removes object and executable files" 54 | @echo 55 | 56 | FEATURE_TESTS = C_feature_tests F_feature_tests 57 | FEATURE_TESTS_RUN = $(addsuffix -run, $(FEATURE_TESTS)) 58 | 59 | 60 | .PHONY: $(FEATURE_TESTS) \ 61 | all clean 62 | 63 | all: $(FEATURE_TESTS) 64 | 65 | run: $(FEATURE_TESTS_RUN) 66 | 67 | C_feature_tests: 68 | cd ./C; $(MAKE) all 69 | 70 | C_feature_tests-run: C_feature_tests 71 | cd ./C; $(MAKE) run 72 | 73 | F_feature_tests: 74 | cd ./Fortran; $(MAKE) all 75 | 76 | F_feature_tests-run: F_feature_tests 77 | cd ./Fortran; $(MAKE) run 78 | 79 | clean: 80 | cd ./C; $(MAKE) $@ 81 | cd ./Fortran; $(MAKE) $@ 82 | 83 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_03_real8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: nelems = 1024000000 49 | 50 | real*8 :: array(1) 51 | pointer (array_addr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(array_addr, nelems * 2, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .ne. -2) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shpdeallc(array_addr, errcode, abort) 80 | 81 | call shmem_finalize() 82 | 83 | end program 84 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_03_int8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: nelems = 1024000000 49 | 50 | integer*8 :: array(1) 51 | pointer (array_addr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(array_addr, nelems * 2, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .ne. -2) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shpdeallc(array_addr, errcode, abort) 80 | 81 | call shmem_finalize() 82 | 83 | end program 84 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_03_double.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_shpalloc 45 | implicit none 46 | include 'shmem.fh' 47 | 48 | integer, parameter :: nelems = 1024000000 49 | 50 | double precision :: array(1) 51 | pointer (array_addr, array) 52 | 53 | integer :: errcode, me, npes 54 | integer, parameter :: abort = 0 55 | character*(*), parameter :: TEST_NAME='shpalloc' 56 | 57 | ! Function return value types 58 | integer :: shmem_my_pe, shmem_n_pes 59 | 60 | call shmem_init() 61 | 62 | me = shmem_my_pe() 63 | npes = shmem_n_pes() 64 | 65 | ! allocate remotely accessible block 66 | call shpalloc(array_addr, nelems * 2, errcode, abort) 67 | 68 | if(me .eq. 0) then 69 | if(errcode .ne. -2) then 70 | write (*,*) TEST_NAME, ': Passed' 71 | else 72 | write (*,*) TEST_NAME, ': Failed' 73 | end if 74 | end if 75 | 76 | ! All PEs wait until PE 0 has finished. 77 | call shmem_barrier_all() 78 | 79 | call shpdeallc(array_addr, errcode, abort) 80 | 81 | call shmem_finalize() 82 | 83 | end program 84 | -------------------------------------------------------------------------------- /performance_tests/micro_benchmarks/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # 3 | # Copyright (c) 2011 - 2015 4 | # University of Houston System and UT-Battelle, LLC. 5 | # Copyright (c) 2009 - 2015 6 | # Silicon Graphics International Corp. SHMEM is copyrighted 7 | # by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | # (shmem) is released by Open Source Software Solutions, Inc., under an 9 | # agreement with Silicon Graphics International Corp. (SGI). 10 | # 11 | # All rights reserved. 12 | # 13 | # Redistribution and use in source and binary forms, with or without 14 | # modification, are permitted provided that the following conditions 15 | # are met: 16 | # 17 | # o Redistributions of source code must retain the above copyright notice, 18 | # this list of conditions and the following disclaimer. 19 | # 20 | # o Redistributions in binary form must reproduce the above copyright 21 | # notice, this list of conditions and the following disclaimer in the 22 | # documentation and/or other materials provided with the distribution. 23 | # 24 | # o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | # nor the names of its contributors may be used to endorse or promote 26 | # products derived from this software without specific prior written 27 | # permission. 28 | # 29 | # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | # HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | # TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | # 41 | 42 | SHELL = /bin/sh 43 | 44 | SHMEM_CFLAGS=-g -O0 45 | 46 | GCC=gcc 47 | 48 | CC = oshcc 49 | 50 | 51 | # Please set these variables. They are used at execution time. 52 | # the run command consists of 53 | # > $RUNCMD $RUNOPT $NCOREOPT $NCORE[...] $NPROCOPT $NPROC[...] executable 54 | 55 | RUNCMD=oshrun 56 | RUNOPT= 57 | NCOREOPT= 58 | NCORE= 59 | NPROCOPT=-np 60 | NPROC=2 61 | 62 | C_TESTS = $(wildcard *.c) 63 | 64 | C_EXES = $(C_TESTS:.c=.x) 65 | 66 | EXES = $(C_EXES) 67 | 68 | .PHONY: clean all default 69 | 70 | all default: $(EXES) 71 | 72 | .SUFFIXES: .x 73 | 74 | %.x: %.c 75 | $(CC) $(SHMEM_CFLAGS) -o $@ $^ -lm 76 | 77 | run: all $(EXES) 78 | $(RUNCMD) $(RUNOPT) $(NPROCOPT) $(NPROC) ./put_performance.x 79 | $(RUNCMD) $(RUNOPT) $(NPROCOPT) $(NPROC) ./get_performance.x 80 | $(RUNCMD) $(RUNOPT) $(NPROCOPT) $(NPROC) ./barrier_performance.x 81 | $(RUNCMD) $(RUNOPT) $(NPROCOPT) $(NPROC) ./broadcast32_performance.x 82 | $(RUNCMD) $(RUNOPT) $(NPROCOPT) $(NPROC) ./collect32_performance.x 83 | $(RUNCMD) $(RUNOPT) $(NPROCOPT) $(NPROC) ./fcollect32_performance.x 84 | 85 | 86 | clean: 87 | rm -f $(EXES) 88 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_05_real4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | real*4, ALLOCATABLE :: remote_dest(:) 49 | 50 | integer :: me, npes, errcode 51 | 52 | ! SHMEM function definitions 53 | integer :: shmem_my_pe, shmem_n_pes 54 | ! -- 55 | 56 | call shmem_init() 57 | 58 | me = shmem_my_pe() 59 | npes = shmem_n_pes() 60 | 61 | if(npes .lt. 2 ) then 62 | write(*,*) 'This test requires 2+ PEs to run.' 63 | stop 64 | end if 65 | 66 | allocate(remote_dest(length), STAT=errcode); 67 | 68 | if(errcode .ne. 0) then 69 | write(*,*) 'Unable to allocate symmetric memory for the test.' 70 | stop 71 | end if 72 | 73 | call shmem_barrier_all() 74 | 75 | if (me .eq. 0) then 76 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 77 | write(*,*) 'test_shmem_acc_mem_05_real*4: Passed' 78 | else 79 | write(*,*) 'test_shmem_acc_mem_05_real*4: Failed' 80 | end if 81 | end if 82 | 83 | call shmem_barrier_all() 84 | 85 | deallocate(remote_dest) 86 | 87 | call shmem_finalize() 88 | 89 | end program test_shmem_accessible 90 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_05_real8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | real*8, ALLOCATABLE :: remote_dest(:) 49 | 50 | integer :: me, npes, errcode 51 | 52 | ! SHMEM function definitions 53 | integer :: shmem_my_pe, shmem_n_pes 54 | ! -- 55 | 56 | call shmem_init() 57 | 58 | me = shmem_my_pe() 59 | npes = shmem_n_pes() 60 | 61 | if(npes .lt. 2 ) then 62 | write(*,*) 'This test requires 2+ PEs to run.' 63 | stop 64 | end if 65 | 66 | allocate(remote_dest(length), STAT=errcode); 67 | 68 | if(errcode .ne. 0) then 69 | write(*,*) 'Unable to allocate symmetric memory for the test.' 70 | stop 71 | end if 72 | 73 | call shmem_barrier_all() 74 | 75 | if (me .eq. 0) then 76 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 77 | write(*,*) 'test_shmem_acc_mem_05_real*8: Passed' 78 | else 79 | write(*,*) 'test_shmem_acc_mem_05_real*8: Failed' 80 | end if 81 | end if 82 | 83 | call shmem_barrier_all() 84 | 85 | deallocate(remote_dest) 86 | 87 | call shmem_finalize() 88 | 89 | end program test_shmem_accessible 90 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_05_char.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | character, ALLOCATABLE :: remote_dest(:) 49 | 50 | integer :: me, npes, errcode 51 | 52 | ! SHMEM function definitions 53 | integer :: shmem_my_pe, shmem_n_pes 54 | ! -- 55 | 56 | call shmem_init() 57 | 58 | me = shmem_my_pe() 59 | npes = shmem_n_pes() 60 | 61 | if(npes .lt. 2 ) then 62 | write(*,*) 'This test requires 2+ PEs to run.' 63 | stop 64 | end if 65 | 66 | allocate(remote_dest(length), STAT=errcode); 67 | 68 | if(errcode .ne. 0) then 69 | write(*,*) 'Unable to allocate symmetric memory for the test.' 70 | stop 71 | end if 72 | 73 | call shmem_barrier_all() 74 | 75 | if (me .eq. 0) then 76 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 77 | write(*,*) 'test_shmem_acc_mem_05_character: Passed' 78 | else 79 | write(*,*) 'test_shmem_acc_mem_05_character: Failed' 80 | end if 81 | end if 82 | 83 | call shmem_barrier_all() 84 | 85 | deallocate(remote_dest) 86 | 87 | call shmem_finalize() 88 | 89 | end program test_shmem_accessible 90 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_05_int4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | integer*4, ALLOCATABLE :: remote_dest(:) 49 | 50 | integer :: me, npes, errcode 51 | 52 | ! SHMEM function definitions 53 | integer :: shmem_my_pe, shmem_n_pes 54 | ! -- 55 | 56 | call shmem_init() 57 | 58 | me = shmem_my_pe() 59 | npes = shmem_n_pes() 60 | 61 | if(npes .lt. 2 ) then 62 | write(*,*) 'This test requires 2+ PEs to run.' 63 | stop 64 | end if 65 | 66 | allocate(remote_dest(length), STAT=errcode); 67 | 68 | if(errcode .ne. 0) then 69 | write(*,*) 'Unable to allocate symmetric memory for the test.' 70 | stop 71 | end if 72 | 73 | call shmem_barrier_all() 74 | 75 | if (me .eq. 0) then 76 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 77 | write(*,*) 'test_shmem_acc_mem_05_integer*4: Passed' 78 | else 79 | write(*,*) 'test_shmem_acc_mem_05_integer*4: Failed' 80 | end if 81 | end if 82 | 83 | call shmem_barrier_all() 84 | 85 | deallocate(remote_dest) 86 | 87 | call shmem_finalize() 88 | 89 | end program test_shmem_accessible 90 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_05_int8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | integer*8, ALLOCATABLE :: remote_dest(:) 49 | 50 | integer :: me, npes, errcode 51 | 52 | ! SHMEM function definitions 53 | integer :: shmem_my_pe, shmem_n_pes 54 | ! -- 55 | 56 | call shmem_init() 57 | 58 | me = shmem_my_pe() 59 | npes = shmem_n_pes() 60 | 61 | if(npes .lt. 2 ) then 62 | write(*,*) 'This test requires 2+ PEs to run.' 63 | stop 64 | end if 65 | 66 | allocate(remote_dest(length), STAT=errcode); 67 | 68 | if(errcode .ne. 0) then 69 | write(*,*) 'Unable to allocate symmetric memory for the test.' 70 | stop 71 | end if 72 | 73 | call shmem_barrier_all() 74 | 75 | if (me .eq. 0) then 76 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 77 | write(*,*) 'test_shmem_acc_mem_05_integer*8: Passed' 78 | else 79 | write(*,*) 'test_shmem_acc_mem_05_integer*8: Failed' 80 | end if 81 | end if 82 | 83 | call shmem_barrier_all() 84 | 85 | deallocate(remote_dest) 86 | 87 | call shmem_finalize() 88 | 89 | end program test_shmem_accessible 90 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_05_logical.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | logical, ALLOCATABLE :: remote_dest(:) 49 | 50 | integer :: me, npes, errcode 51 | 52 | ! SHMEM function definitions 53 | integer :: shmem_my_pe, shmem_n_pes 54 | ! -- 55 | 56 | call shmem_init() 57 | 58 | me = shmem_my_pe() 59 | npes = shmem_n_pes() 60 | 61 | if(npes .lt. 2 ) then 62 | write(*,*) 'This test requires 2+ PEs to run.' 63 | stop 64 | end if 65 | 66 | allocate(remote_dest(length), STAT=errcode); 67 | 68 | if(errcode .ne. 0) then 69 | write(*,*) 'Unable to allocate symmetric memory for the test.' 70 | stop 71 | end if 72 | 73 | call shmem_barrier_all() 74 | 75 | if (me .eq. 0) then 76 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 77 | write(*,*) 'test_shmem_acc_mem_05_logical: Passed' 78 | else 79 | write(*,*) 'test_shmem_acc_mem_05_logical: Failed' 80 | end if 81 | end if 82 | 83 | call shmem_barrier_all() 84 | 85 | deallocate(remote_dest) 86 | 87 | call shmem_finalize() 88 | 89 | end program test_shmem_accessible 90 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_05_double.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | double precision, ALLOCATABLE :: remote_dest(:) 49 | 50 | integer :: me, npes, errcode 51 | 52 | ! SHMEM function definitions 53 | integer :: shmem_my_pe, shmem_n_pes 54 | ! -- 55 | 56 | call shmem_init() 57 | 58 | me = shmem_my_pe() 59 | npes = shmem_n_pes() 60 | 61 | if(npes .lt. 2 ) then 62 | write(*,*) 'This test requires 2+ PEs to run.' 63 | stop 64 | end if 65 | 66 | allocate(remote_dest(length), STAT=errcode); 67 | 68 | if(errcode .ne. 0) then 69 | write(*,*) 'Unable to allocate symmetric memory for the test.' 70 | stop 71 | end if 72 | 73 | call shmem_barrier_all() 74 | 75 | if (me .eq. 0) then 76 | if(.not.shmem_addr_accessible(remote_dest, 1) ) then 77 | write(*,*) 'test_shmem_acc_mem_05_double precision: Passed' 78 | else 79 | write(*,*) 'test_shmem_acc_mem_05_double precision: Failed' 80 | end if 81 | end if 82 | 83 | call shmem_barrier_all() 84 | 85 | deallocate(remote_dest) 86 | 87 | call shmem_finalize() 88 | 89 | end program test_shmem_accessible 90 | -------------------------------------------------------------------------------- /feature_tests/Fortran/alloc/test_shmem_shpalloc_03_char.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! This test checks if the OpenSHMEM implementation returns 43 | ! the correct error code when memory requested is more than the 44 | ! size of the symmetric heap. 45 | 46 | program test_shmem_shpalloc 47 | implicit none 48 | include 'shmem.fh' 49 | 50 | integer, parameter :: nelems = 1024000000 51 | 52 | character :: array(1) 53 | pointer (array_addr, array) 54 | 55 | integer :: errcode, me, npes 56 | integer, parameter :: abort = 0 57 | character*(*), parameter :: TEST_NAME='shpalloc' 58 | 59 | ! Function return value types 60 | integer :: shmem_my_pe, shmem_n_pes 61 | 62 | call shmem_init() 63 | 64 | me = shmem_my_pe() 65 | npes = shmem_n_pes() 66 | 67 | ! try to allocate a huge remotely accessible block 68 | call shpalloc(array_addr, nelems * 2, errcode, abort) 69 | 70 | if(me .eq. 0) then 71 | if(errcode .ne. -2) then 72 | write (*,*) TEST_NAME, ': Passed' 73 | else 74 | write (*,*) TEST_NAME, ': Failed' 75 | end if 76 | end if 77 | 78 | ! All PEs wait until PE 0 has finished. 79 | call shmem_barrier_all() 80 | 81 | call shpdeallc(array_addr, errcode, abort) 82 | 83 | call shmem_finalize() 84 | 85 | end program 86 | -------------------------------------------------------------------------------- /feature_tests/C/test_shmem_finalize.c: -------------------------------------------------------------------------------- 1 | /* 2 | * 3 | * Copyright (c) 2011 - 2015 4 | * University of Houston System and UT-Battelle, LLC. 5 | * Copyright (c) 2009 - 2015 6 | * Silicon Graphics International Corp. SHMEM is copyrighted 7 | * by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | * (shmem) is released by Open Source Software Solutions, Inc., under an 9 | * agreement with Silicon Graphics International Corp. (SGI). 10 | * 11 | * All rights reserved. 12 | * 13 | * Redistribution and use in source and binary forms, with or without 14 | * modification, are permitted provided that the following conditions 15 | * are met: 16 | * 17 | * o Redistributions of source code must retain the above copyright notice, 18 | * this list of conditions and the following disclaimer. 19 | * 20 | * o Redistributions in binary form must reproduce the above copyright 21 | * notice, this list of conditions and the following disclaimer in the 22 | * documentation and/or other materials provided with the distribution. 23 | * 24 | * o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | * nor the names of its contributors may be used to endorse or promote 26 | * products derived from this software without specific prior written 27 | * permission. 28 | * 29 | * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | * 41 | */ 42 | 43 | 44 | /* 45 | * Calls tested 46 | * shmem_finalize 47 | * 48 | * All PEs put a 64-bit value to its right neighbor and expect the 49 | * transfer to complete after shmem_finalize 50 | */ 51 | 52 | #include 53 | #include 54 | #include 55 | #include 56 | #include 57 | 58 | uint64_t dest; 59 | 60 | int 61 | main (int argc, char **argv) 62 | { 63 | int nextpe; 64 | int me, npes; 65 | uint64_t src; 66 | 67 | shmem_init (); 68 | me = shmem_my_pe (); 69 | npes = shmem_n_pes (); 70 | dest = -9; 71 | 72 | if (npes > 1) { 73 | 74 | src = (uint64_t)((me+1)%npes); 75 | nextpe = (me+1)%npes; 76 | shmem_put64 (&dest, &src, 1, nextpe); 77 | 78 | shmem_finalize (); 79 | 80 | if (me == 0) { 81 | /* Check for completion of all communication */ 82 | if ((int)dest == me) 83 | printf ("Test shmem_finalize: Passed\n"); 84 | else 85 | printf ("Test shmem_finalize: Failed\n"); 86 | } 87 | } 88 | else { 89 | printf ("Number of PEs must be > 1 to test shmem finalize, test skipped\n"); 90 | 91 | } 92 | 93 | shmem_finalize (); 94 | 95 | return 0; 96 | } 97 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_03_real4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | real*4 :: remote_dest(1) 49 | pointer (remote_ptr, remote_dest) 50 | 51 | integer :: me, npes 52 | integer :: errcode 53 | integer, parameter :: abort = 0 54 | ! SHMEM function definitions 55 | integer :: shmem_my_pe, shmem_n_pes 56 | ! -- 57 | 58 | call shmem_init() 59 | me = shmem_my_pe() 60 | npes = shmem_n_pes() 61 | 62 | if(npes .lt. 2 ) then 63 | write(*,*) 'This test requires 2+ PEs to run.' 64 | stop 65 | end if 66 | 67 | !abort = 0 ! do not abort on eror 68 | call shpalloc(remote_ptr, length, errcode, abort) 69 | 70 | if(errcode .ne. 0) then 71 | write(*,*) 'Unable to allocate symmetric memory for the test.' 72 | stop 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | if (me .eq. 0) then 78 | if( shmem_addr_accessible(remote_dest, 1) ) then 79 | write(*,*) 'test_shmem_acc_mem_03_real*4: Passed' 80 | else 81 | write(*,*) 'test_shmem_acc_mem_03_real*4: Failed' 82 | end if 83 | end if 84 | 85 | call shmem_barrier_all() 86 | 87 | call shpdeallc(remote_ptr, errcode, abort) 88 | 89 | call shmem_finalize() 90 | 91 | end program test_shmem_accessible 92 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_03_logical.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | logical :: remote_dest(1) 49 | pointer (remote_ptr, remote_dest) 50 | 51 | integer :: me, npes 52 | integer :: errcode 53 | integer, parameter :: abort = 0 54 | ! SHMEM function definitions 55 | integer :: shmem_my_pe, shmem_n_pes 56 | ! -- 57 | 58 | call shmem_init() 59 | me = shmem_my_pe() 60 | npes = shmem_n_pes() 61 | 62 | if(npes .lt. 2 ) then 63 | write(*,*) 'This test requires 2+ PEs to run.' 64 | stop 65 | end if 66 | 67 | !abort = 0 ! do not abort on eror 68 | call shpalloc(remote_ptr, length, errcode, abort) 69 | 70 | if(errcode .ne. 0) then 71 | write(*,*) 'Unable to allocate symmetric memory for the test.' 72 | stop 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | if (me .eq. 0) then 78 | if( shmem_addr_accessible(remote_dest, 1) ) then 79 | write(*,*) 'test_shmem_acc_mem_03_logical: Passed' 80 | else 81 | write(*,*) 'test_shmem_acc_mem_03_logical: Failed' 82 | end if 83 | end if 84 | 85 | call shmem_barrier_all() 86 | 87 | call shpdeallc(remote_ptr, errcode, abort) 88 | 89 | call shmem_finalize() 90 | 91 | end program test_shmem_accessible 92 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_03_int4.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! 11 | ! All rights reserved. 12 | ! 13 | ! Redistribution and use in source and binary forms, with or without 14 | ! modification, are permitted provided that the following conditions 15 | ! are met: 16 | ! 17 | ! o Redistributions of source code must retain the above copyright notice, 18 | ! this list of conditions and the following disclaimer. 19 | ! 20 | ! o Redistributions in binary form must reproduce the above copyright 21 | ! notice, this list of conditions and the following disclaimer in the 22 | ! documentation and/or other materials provided with the distribution. 23 | ! 24 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 25 | ! nor the names of its contributors may be used to endorse or promote 26 | ! products derived from this software without specific prior written 27 | ! permission. 28 | ! 29 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 30 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 31 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 32 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 33 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 34 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 35 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 36 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 37 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 38 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 39 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 40 | ! 41 | ! 42 | 43 | program test_shmem_accessible 44 | implicit none 45 | include 'shmem.fh' 46 | integer, parameter :: length = 4 47 | 48 | integer*4 :: remote_dest(1) 49 | pointer (remote_ptr, remote_dest) 50 | 51 | integer :: me, npes 52 | integer :: errcode 53 | integer, parameter :: abort = 0 54 | ! SHMEM function definitions 55 | integer :: shmem_my_pe, shmem_n_pes 56 | ! -- 57 | 58 | call shmem_init() 59 | me = shmem_my_pe() 60 | npes = shmem_n_pes() 61 | 62 | if(npes .lt. 2 ) then 63 | write(*,*) 'This test requires 2+ PEs to run.' 64 | stop 65 | end if 66 | 67 | !abort = 0 ! do not abort on eror 68 | call shpalloc(remote_ptr, length, errcode, abort) 69 | 70 | if(errcode .ne. 0) then 71 | write(*,*) 'Unable to allocate symmetric memory for the test.' 72 | stop 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | if (me .eq. 0) then 78 | if( shmem_addr_accessible(remote_dest, 1) ) then 79 | write(*,*) 'test_shmem_acc_mem_03_integer*4: Passed' 80 | else 81 | write(*,*) 'test_shmem_acc_mem_03_integer*4: Failed' 82 | end if 83 | end if 84 | 85 | call shmem_barrier_all() 86 | 87 | call shpdeallc(remote_ptr, errcode, abort) 88 | 89 | call shmem_finalize() 90 | 91 | end program test_shmem_accessible 92 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_03_char.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_accessible 45 | implicit none 46 | include 'shmem.fh' 47 | integer, parameter :: length = 4 48 | 49 | character :: remote_dest(1) 50 | pointer (remote_ptr, remote_dest) 51 | 52 | integer :: me, npes 53 | integer :: errcode 54 | integer, parameter :: abort = 0 55 | ! SHMEM function definitions 56 | integer :: shmem_my_pe, shmem_n_pes 57 | ! -- 58 | 59 | call shmem_init() 60 | me = shmem_my_pe() 61 | npes = shmem_n_pes() 62 | 63 | if(npes .lt. 2 ) then 64 | write(*,*) 'This test requires 2+ PEs to run.' 65 | stop 66 | end if 67 | 68 | call shpalloc(remote_ptr, length / 4, errcode, abort) 69 | 70 | if(errcode .ne. 0) then 71 | write(*,*) 'Unable to allocate symmetric memory for the test.' 72 | stop 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | if (me .eq. 0) then 78 | if( shmem_addr_accessible(remote_dest, 1) ) then 79 | write(*,*) 'test_shmem_acc_mem_03_character: Passed' 80 | else 81 | write(*,*) 'test_shmem_acc_mem_03_character: Failed' 82 | end if 83 | end if 84 | 85 | call shmem_barrier_all() 86 | 87 | call shpdeallc(remote_ptr, errcode, abort) 88 | 89 | call shmem_finalize() 90 | 91 | end program test_shmem_accessible 92 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_03_double.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_accessible 45 | implicit none 46 | include 'shmem.fh' 47 | integer, parameter :: length = 4 48 | 49 | double precision :: remote_dest(1) 50 | pointer (remote_ptr, remote_dest) 51 | 52 | integer :: me, npes 53 | integer :: errcode 54 | integer, parameter :: abort = 0 55 | ! SHMEM function definitions 56 | integer :: shmem_my_pe, shmem_n_pes 57 | ! -- 58 | 59 | call shmem_init() 60 | me = shmem_my_pe() 61 | npes = shmem_n_pes() 62 | 63 | if(npes .lt. 2 ) then 64 | write(*,*) 'This test requires 2+ PEs to run.' 65 | stop 66 | end if 67 | 68 | call shpalloc(remote_ptr, length * 2, errcode, abort) 69 | 70 | if(errcode .ne. 0) then 71 | write(*,*) 'Unable to allocate symmetric memory for the test.' 72 | stop 73 | end if 74 | 75 | call shmem_barrier_all() 76 | 77 | if (me .eq. 0) then 78 | if( shmem_addr_accessible(remote_dest, 1) ) then 79 | write(*,*) 'test_shmem_acc_mem_03_double precision: Passed' 80 | else 81 | write(*,*) 'test_shmem_acc_mem_03_double precision: Failed' 82 | end if 83 | end if 84 | 85 | call shmem_barrier_all() 86 | 87 | call shpdeallc(remote_ptr, errcode, abort) 88 | 89 | call shmem_finalize() 90 | 91 | end program test_shmem_accessible 92 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_03_real8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_accessible 45 | implicit none 46 | include 'shmem.fh' 47 | integer, parameter :: length = 4 48 | 49 | real*8 :: remote_dest(1) 50 | pointer (remote_ptr, remote_dest) 51 | 52 | integer :: me, npes 53 | integer :: errcode 54 | integer, parameter :: abort = 0 55 | ! SHMEM function definitions 56 | integer :: shmem_my_pe, shmem_n_pes 57 | ! -- 58 | 59 | call shmem_init() 60 | me = shmem_my_pe() 61 | npes = shmem_n_pes() 62 | 63 | if(npes .lt. 2 ) then 64 | write(*,*) 'This test requires 2+ PEs to run.' 65 | stop 66 | end if 67 | 68 | !abort = 0 ! do not abort on eror 69 | call shpalloc(remote_ptr, length * 2, errcode, abort) 70 | 71 | if(errcode .ne. 0) then 72 | write(*,*) 'Unable to allocate symmetric memory for the test.' 73 | stop 74 | end if 75 | 76 | call shmem_barrier_all() 77 | 78 | if (me .eq. 0) then 79 | if( shmem_addr_accessible(remote_dest, 1) ) then 80 | write(*,*) 'test_shmem_acc_mem_03_real*8: Passed' 81 | else 82 | write(*,*) 'test_shmem_acc_mem_03_real*8: Failed' 83 | end if 84 | end if 85 | 86 | call shmem_barrier_all() 87 | 88 | call shpdeallc(remote_ptr, errcode, abort) 89 | 90 | call shmem_finalize() 91 | 92 | end program test_shmem_accessible 93 | -------------------------------------------------------------------------------- /feature_tests/Fortran/accessibility/test_shmem_acc_mem_03_int8.f90: -------------------------------------------------------------------------------- 1 | ! 2 | ! 3 | ! Copyright (c) 2011 - 2015 4 | ! University of Houston System and UT-Battelle, LLC. 5 | ! Copyright (c) 2009 - 2015 6 | ! Silicon Graphics International Corp. SHMEM is copyrighted 7 | ! by Silicon Graphics International Corp. (SGI) The OpenSHMEM API 8 | ! (shmem) is released by Open Source Software Solutions, Inc., under an 9 | ! agreement with Silicon Graphics International Corp. (SGI). 10 | ! Copyright (c) 2015 Intel Corporation 11 | ! 12 | ! All rights reserved. 13 | ! 14 | ! Redistribution and use in source and binary forms, with or without 15 | ! modification, are permitted provided that the following conditions 16 | ! are met: 17 | ! 18 | ! o Redistributions of source code must retain the above copyright notice, 19 | ! this list of conditions and the following disclaimer. 20 | ! 21 | ! o Redistributions in binary form must reproduce the above copyright 22 | ! notice, this list of conditions and the following disclaimer in the 23 | ! documentation and/or other materials provided with the distribution. 24 | ! 25 | ! o Neither the name of the University of Houston System, UT-Battelle, LLC 26 | ! nor the names of its contributors may be used to endorse or promote 27 | ! products derived from this software without specific prior written 28 | ! permission. 29 | ! 30 | ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 31 | ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 32 | ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 33 | ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 34 | ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 35 | ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 36 | ! TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 37 | ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 38 | ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 39 | ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 40 | ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 41 | ! 42 | ! 43 | 44 | program test_shmem_accessible 45 | implicit none 46 | include 'shmem.fh' 47 | integer, parameter :: length = 4 48 | 49 | integer*8 :: remote_dest(1) 50 | pointer (remote_ptr, remote_dest) 51 | 52 | integer :: me, npes 53 | integer :: errcode 54 | integer, parameter :: abort = 0 55 | ! SHMEM function definitions 56 | integer :: shmem_my_pe, shmem_n_pes 57 | ! -- 58 | 59 | call shmem_init() 60 | me = shmem_my_pe() 61 | npes = shmem_n_pes() 62 | 63 | if(npes .lt. 2 ) then 64 | write(*,*) 'This test requires 2+ PEs to run.' 65 | stop 66 | end if 67 | 68 | !abort = 0 ! do not abort on eror 69 | call shpalloc(remote_ptr, length * 2, errcode, abort) 70 | 71 | if(errcode .ne. 0) then 72 | write(*,*) 'Unable to allocate symmetric memory for the test.' 73 | stop 74 | end if 75 | 76 | call shmem_barrier_all() 77 | 78 | if (me .eq. 0) then 79 | if( shmem_addr_accessible(remote_dest, 1) ) then 80 | write(*,*) 'test_shmem_acc_mem_03_integer*8: Passed' 81 | else 82 | write(*,*) 'test_shmem_acc_mem_03_integer*8: Failed' 83 | end if 84 | end if 85 | 86 | call shmem_barrier_all() 87 | 88 | call shpdeallc(remote_ptr, errcode, abort) 89 | 90 | call shmem_finalize() 91 | 92 | end program test_shmem_accessible 93 | -------------------------------------------------------------------------------- /error_tests/Fortran/transfer/test_parameters.conf: -------------------------------------------------------------------------------- 1 | test_shmem_get_04_int4.x, 2, shmem_get with non remotely accessible variables,,0,Fail 2 | test_shmem_get_04_real4.x, 2, shmem_get with non remotely accessible variables,,0,Fail 3 | test_shmem_get_04_double.x, 2, shmem_get with non remotely accessible variables,,0,Fail 4 | test_shmem_get_04_char.x, 2, shmem_get with non remotely accessible variables,,0,Fail 5 | test_shmem_get_04_logical.x, 2, shmem_get with non remotely accessible variables,,0,Fail 6 | test_shmem_get_05_int4.x, 2, shmem_get with non remotely accessible variables (ALLOCATABLE),,0,Fail 7 | test_shmem_get_05_real4.x, 2, shmem_get with non remotely accessible variables (ALLOCATABLE),,0,Fail 8 | test_shmem_get_05_double.x, 2, shmem_get with non remotely accessible variables (ALLOCATABLE),,0,Fail 9 | test_shmem_get_05_char.x, 2, shmem_get with non remotely accessible variables (ALLOCATABLE),,0,Fail 10 | test_shmem_get_05_logical.x, 2, shmem_get with non remotely accessible variables (ALLOCATABLE),,0,Fail 11 | test_shmem_put_04_int4.x, 2, shmem_put with non remotely accessible variables,,0,Fail 12 | test_shmem_put_04_real4.x, 2, shmem_put with non remotely accessible variables,,0,Fail 13 | test_shmem_put_04_double.x, 2, shmem_put with non remotely accessible variables,,0,Fail 14 | test_shmem_put_04_char.x, 2, shmem_put with non remotely accessible variables,,0,Fail 15 | test_shmem_put_04_logical.x, 2, shmem_put with non remotely accessible variables,,0,Fail 16 | test_shmem_put_05_int4.x, 2, shmem_put with non remotely accessible variables (ALLOCATABLE),,0,Fail 17 | test_shmem_put_05_real4.x, 2, shmem_put with non remotely accessible variables (ALLOCATABLE),,0,Fail 18 | test_shmem_put_05_double.x, 2, shmem_put with non remotely accessible variables (ALLOCATABLE),,0,Fail 19 | test_shmem_put_05_char.x, 2, shmem_put with non remotely accessible variables (ALLOCATABLE),,0,Fail 20 | test_shmem_put_05_logical.x, 2, shmem_put with non remotely accessible variables (ALLOCATABLE),,0,Fail 21 | test_shmem_iput_04_int4.x, 2, shmem_iput with non remotely accessible variables,,0,Fail 22 | test_shmem_iput_04_real4.x, 2, shmem_iput with non remotely accessible variables,,0,Fail 23 | test_shmem_iput_04_double.x, 2, shmem_iput with non remotely accessible variables,,0,Fail 24 | test_shmem_iput_04_logical.x, 2, shmem_iput with non remotely accessible variables,,0,Fail 25 | test_shmem_iput_05_int4.x, 2, shmem_iput with non remotely accessible variables (ALLOCATABLE),,0,Fail 26 | test_shmem_iput_05_real4.x, 2, shmem_iput with non remotely accessible variables (ALLOCATABLE),,0,Fail 27 | test_shmem_iput_05_double.x, 2, shmem_iput with non remotely accessible variables (ALLOCATABLE),,0,Fail 28 | test_shmem_iput_05_logical.x, 2, shmem_iput with non remotely accessible variables (ALLOCATABLE),,0,Fail 29 | test_shmem_iget_04_int4.x, 2, shmem_iget with non remotely accessible variables,,0,Fail 30 | test_shmem_iget_04_real4.x, 2, shmem_iget with non remotely accessible variables,,0,Fail 31 | test_shmem_iget_04_double.x, 2, shmem_iget with non remotely accessible variables,,0,Fail 32 | test_shmem_iget_04_logical.x, 2, shmem_iget with non remotely accessible variables,,0,Fail 33 | test_shmem_iget_05_int4.x, 2, shmem_iget with non remotely accessible variables (ALLOCATABLE),,0,Fail 34 | test_shmem_iget_05_real4.x, 2, shmem_iget with non remotely accessible variables (ALLOCATABLE),,0,Fail 35 | test_shmem_iget_05_double.x, 2, shmem_iget with non remotely accessible variables (ALLOCATABLE),,0,Fail 36 | test_shmem_iget_05_logical.x, 2, shmem_iget with non remotely accessible variables (ALLOCATABLE),,0,Fail 37 | --------------------------------------------------------------------------------