gcc/testsuite/gfortran.dg/coarray_43.f90

   1 ! { dg-do link }
   2 ! { dg-options "-fcoarray=lib -lcaf_single" }
   3 ! { dg-additional-options "-latomic" { target libatomic_available } }
   4
   5 program coarray_43
   6   implicit none
   7   integer, parameter :: STR_LEN = 50
   8   character(len=STR_LEN) :: str[*]
   9   integer :: pos
  10   write(str,"(2(a,i2))") "Greetings from image ",this_image()," of ",num_images()
  11   block
  12     pos = scan(str[5], set="123456789")
  13   end block
  14 end program