https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100194
--- Comment #1 from G. Steinmetz <gs...@t-online.de> --- Compiles these variants : $ cat z2.f90 subroutine s(x) real, contiguous :: x(..) call t(x) contains subroutine t(y) real :: y(..) end end $ cat z3.f90 subroutine s(x) real, contiguous :: x(..) call t(x) contains subroutine t(y) real, contiguous :: y(..) end end