Merge pull request #291 from sourceryinstitute/add-regression-suite

Add regression test from Edmondo

Author: Damian Rouson

CMakeLists.txt

@@ -406,6 +406,9 @@ if(opencoarrays_aware_compiler)
       set_property(TEST coarray_navier_stokes PROPERTY PASS_REGULAR_EXPRESSION "Test passed.")
     endif()
   endif()
+
+  # Regression tests based on reported issues
+  add_mpi_test(convert-before-put 3 ${tests_root}/regression/reported/convert-before-put)
 else()
   add_test(co_sum_extension ${tests_root}/unit/extensions/test-co_sum-extension.sh)
   set_property(TEST co_sum_extension PROPERTY PASS_REGULAR_EXPRESSION "Test passed.")

src/tests/CMakeLists.txt

@@ -18,3 +18,4 @@ endif()
 add_subdirectory(integration)
 add_subdirectory(unit)
 add_subdirectory(installation)
+add_subdirectory(regression)

src/tests/regression/CMakeLists.txt

@@ -0,0 +1 @@
+add_subdirectory(reported)

src/tests/regression/open/issue-290

@@ -0,0 +1 @@
+../reported/issue-290-convert-type-before-put.f90

src/tests/regression/reported/CMakeLists.txt

@@ -0,0 +1,2 @@
+add_executable(convert-before-put issue-290-convert-type-before-put.f90)
+target_link_libraries(convert-before-put OpenCoarrays)

src/tests/regression/reported/issue-290-convert-type-before-put.f90

@@ -0,0 +1,58 @@
+! BSD 3-Clause License
+!
+! Copyright (c) 2016, Sourcery Institute
+! All rights reserved.
+!
+! Redistribution and use in source and binary forms, with or without
+! modification, are permitted provided that the following conditions are met:
+!
+! * Redistributions of source code must retain the above copyright notice, this
+!   list of conditions and the following disclaimer.
+!
+! * Redistributions in binary form must reproduce the above copyright notice,
+!   this list of conditions and the following disclaimer in the documentation
+!   and/or other materials provided with the distribution.
+!
+! * Neither the name of the copyright holder nor the names of its
+!   contributors may be used to endorse or promote products derived from
+!   this software without specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+! DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+! FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+! SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+! CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+! OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+! Comments preceded by "!!" are formatted for the FORD docoumentation generator
+program main
+  !! author: Damian Rouson
+  !! date: 2016-12-21
+  !! category: regression
+  !! Test whether implicit type conversion occurs before coarray put
+  !! OpenCoarrays issue #280
+  use iso_fortran_env, only : error_unit
+  implicit none
+  real :: a[*]
+  integer :: receiver
+  associate(me=>this_image(),ni=>num_images())
+    if (me == 1) then
+      put_realme_on_remote_image: do receiver= 2, ni
+        a[receiver] = receiver ! implicit real(receiver) needed here
+        sync images (receiver) ! notify remote image that data has been put
+      end do put_realme_on_remote_image
+    else
+      sync images (1) ! await notification of data put by image 1
+      if (a/=real(me)) then
+        write(error_unit,*) "Test failed on image ",me,": received ",a,", expected ",real(me)
+        error stop
+      end if
+    end if
+    sync all ! wait for every image to pass the test
+    if (me==1) print *,"Test passed."
+  end associate
+end program