1 2 3 4 5 6 7 8 9 10 11 12 13
! { dg-do compile } ! { dg-options "-fcoarray=lib" } program p call s contains subroutine s real :: x[*] = 1 block end block x = 2 end end