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