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