2 ! { dg-options "-fcoarray=lib -lcaf_single " }
3 ! { dg-additional-options "-latomic" { target libatomic_available } }
4 ! PR 71066 - this used to ICE
9 data b
/1234, 2345, 3456, 4567/
10 if (any (a
/= 0.0)) stop 1
11 if (any (b
/= reshape([1234, 2345, 3456, 4567],[2,2]))) stop 2