blob: 860c1c8be80737b734c5e578d85bca9c8ddeb0f6 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
! { dg-options "-fcoarray=lib -fcheck=all -fdefault-integer-8" }
! PR fortran/71706 - ICE on using sync images with -fcheck=bounds
program p
integer, volatile :: me = 1
sync images (me)
sync images (int (me, 2))
sync images (int (me, 8))
end
|
