2 ! { dg-options "-fcoarray=lib -lcaf_single" }
3 ! { dg-additional-options "-latomic" { target libatomic_available } }
5 ! Contributed by Reinhold Bader
14 CLASS(*), allocatable
:: a(:)[:]
18 allocate(real :: a(3)[*])
19 IF (this_image() == num_images()) THEN
27 IF (this_image() == 1) THEN
30 IF (ALL(A(:)[1] == 2.0)) THEN
47 allocate(t
:: a(3)[*])
48 IF (this_image() == num_images()) THEN
56 IF (this_image() == 1) THEN
62 IF (ALL(A(:)[1]%a
== 4.0)) THEN