1! { dg-do compile } 2! 3! PR fortran/54753 4! TS29113:C535c 5! F2018:C839 6! 7module m 8 9 interface 10 subroutine s1 (x, y) 11 class(*) :: x(..) 12 class(*), intent (out) :: y(..) 13 end subroutine 14 end interface 15 16end module 17