gcc/testsuite/gfortran.dg/coarray_43.f90

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