2 ! { dg-options "-fcoarray=lib -lcaf_single" }
3 ! { dg-additional-options "-latomic" { target libatomic_available } }
7 integer, parameter :: STR_LEN
= 50
8 character(len
=STR_LEN
) :: str
[*]
10 write(str
,"(2(a,i2))") "Greetings from image ",this_image()," of ",num_images()
12 pos
= scan(str
[5], set
="123456789")