blob: 3078339f6a960aad693fc070f74fce0a978bd9c1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { 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
|