blob: c83aa7de1a391ab076f04c10bc8df7b673b4b1a2 [file] [log] [blame]
! { 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