[Fortran, Patch, CAF] Failed Images patch (TS 18508)

[Jerry DeLisle]

On 02/13/2017 12:35 PM, Alessandro Fanfarillo wrote:
> Now with the patch attached.
>
> 2017-02-13 13:35 GMT-07:00 Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>:
>> Thanks Jerry. That test case is supposed only to be compiled (it never
>> runs). Anyway, the attached patch has been modified according to your
>> suggestion.
>>

Not sure you attached the right patch unless I messed up here.

I see "dg-do run", in the following two test cases, so they will run, unless the 
coarray folder only compiles??

Otherwise change to say "dg-do compile" if this is your intent.
OK to commit with this change.

Jerry

diff --git a/gcc/testsuite/gfortran.dg/coarray/failed_images_single.f90 
b/gcc/testsuite/gfortran.dg/coarray/failed_images_single.f90
new file mode 100644
index 0000000..5583fef
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/coarray/failed_images_single.f90
@@ -0,0 +1,15 @@
+! { dg-do run }
+! { dg-options "-fcoarray=single -lcaf_single" }
+!
+program test_failed_images
+  use iso_fortran_env
+  implicit none
+
+  integer, allocatable :: failed(:)
+
+  failed = failed_images()
+
+  write(*,*) failed,lbound(failed),ubound(failed)
+  write(*,*) failed_images()
+
+end program test_failed_images
diff --git a/gcc/testsuite/gfortran.dg/coarray/image_status_single.f90 
b/gcc/testsuite/gfortran.dg/coarray/image_status_single.f90
new file mode 100644
index 0000000..3eef40a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/coarray/image_status_single.f90
@@ -0,0 +1,9 @@
+! { dg-do run }
+! { dg-options "-fcoarray=single" -lcaf_single}
+!
+program test_image_status
+  implicit none
+
+  write(*,*) image_status(1)
+
+end program test_image_status