tree-optimization/113385 - wrong loop father with early exit vectorization

[official-gcc.git] / gcc / testsuite / gfortran.dg / assumed_rank_23.f90

! { dg-do compile }
!
! PR fortran/54753
! TS29113:C535c
! F2018:C839
!
module m

  interface
    subroutine s1 (x, y)
      class(*) :: x(..)
      class(*), intent (out) :: y(..)
    end subroutine
  end interface

end module