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

Reply via email to