https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71688
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> --- Modified a bit : $ cat z2.f90 program p call s contains subroutine s real :: x[*] = 1 block end block x = 2 end end $ gfortran-6 -fcoarray=lib z2.f90 z2.f90:1:0: program p internal compiler error: in analyze, at cgraphunit.c:632