blob: d5ee4e1a66839f2cf50743b6d5c8056037b82344 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do link }
! { dg-options "-fcoarray=lib -lcaf_single" }
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
|