gcc/testsuite/gfortran.dg/coarray_failed_images_1.f08

   1 ! { dg-do run }
   2 ! { dg-options "-fdump-tree-original -fcoarray=lib -lcaf_single" }
   3 ! { dg-additional-options "-latomic" { target libatomic_available } }
   4
   5 program test_failed_images_1
   6   implicit none
   7
   8   integer :: me,np,stat
   9   character(len=1) :: c
  10   integer, allocatable :: fi(:)
  11   integer(kind=1), allocatable :: sfi(:)
  12
  13   fi = failed_images()
  14   if (size(fi) > 0) error stop "failed_images result shall be empty array"
  15   if (allocated(fi)) error stop "failed_images result shall not be allocated"
  16
  17   sfi = failed_images(KIND=1)
  18   if (size(sfi) > 0) error stop "failed_images result shall be empty array"
  19   if (allocated(sfi)) error stop "failed_images result shall not be allocated"
  20
  21   sfi = failed_images(KIND=8)
  22   if (size(sfi) > 0) error stop "failed_images result shall be empty array"
  23 ! The implicit type conversion in the assignment above allocates an array.
  24 !  if (allocated(sfi)) error stop "failed_images result shall not be allocated"
  25
  26 end program test_failed_images_1
  27
  28 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, 0B\\\);" 1 "original" } }
  29 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, D\\\.\[0-9\]+\\\);" 1 "original" } }
  30 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, D\\\.\[0-9\]+\\\);" 1 "original" } }