2 ! { dg-options "-fcoarray=lib -lcaf_single" }
6 integer, parameter :: STR_LEN
= 50
7 character(len
=STR_LEN
) :: str
[*]
9 write(str
,"(2(a,i2))") "Greetings from image ",this_image()," of ",num_images()
11 pos
= scan(str
[5], set
="123456789")