gcc/testsuite/gfortran.dg/coarray_stat_2.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fcoarray=lib -lcaf_single" }
   3 ! { dg-additional-options "-latomic" { target libatomic_available } }
   4 !
   5 ! Support for stat= in caf reference
   6 !
   7 program whitespace
   8   implicit none
   9
  10   integer :: me[*],tmp,stat
  11
  12   me = this_image()
  13   stat = 0
  14
  15   sync all(stat = stat)
  16
  17   if(stat /= 0) write(*,*) 'failure during sync'
  18
  19   stat = 42
  20
  21   tmp = me[num_images(),stat = stat]
  22   if(stat /= 0) call abort()
  23
  24 end program whitespace