blob: dbb6d185cf46e050060b8f6f77433c7cfa9d36bc [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fcoarray=lib" }
program p
call s
contains
subroutine s
real :: x[*] = 1
block
end block
x = 2
end
end