15    subroutine s(dtv,unit,iotype,vlist,extra,iostat,iomsg) ! { dg-error "Too many dummy arguments" }  argument
16       class(t), intent(in) :: dtv  argument
17       integer, intent(in) :: unit  local
19       integer, intent(in) :: vlist(:)  argument
20       integer, intent(out) :: iostat  argument
21       character(len=*), intent(inout) :: iomsg  argument
29       module procedure s  argument
32    subroutine s(dtv,unit,iotype,vlist,iostat,iomsg,extra) ! { dg-error "Too many dummy arguments" }  argument
33       class(t), intent(inout) :: dtv  argument
34       integer, intent(in) :: unit  local
36       integer, intent(in) :: vlist(:)  argument
37       integer, intent(out) :: iostat  argument
38       character(len=*), intent(inout) :: iomsg  argument
46       module procedure s  argument
49    subroutine s(dtv,extra,unit,iotype,vlist,iostat,iomsg) ! { dg-error "Too many dummy arguments" }  argument
50       class(t), intent(inout) :: dtv  argument
51       integer, intent(in) :: unit  local
53       integer, intent(in) :: vlist(:)  argument
54       integer, intent(out) :: iostat  argument
55       character(len=*), intent(inout) :: iomsg  argument
63       module procedure s  argument
66    subroutine s(*) ! { dg-error "Alternate return" }  subroutine
73       procedure :: s  method
77    subroutine s(dtv, *) ! { dg-error "Too few dummy arguments" }  subroutine
78       class(t), intent(out) :: dtv  argument
91    subroutine pruf (dtv,unit,*,iomsg) ! { dg-error "Alternate return" }  argument
93       integer, intent(in) :: unit  local
108    subroutine pruf (dtv,unit,iostat) ! { dg-error "Too few dummy arguments" }  argument
110       integer, intent(in) :: unit  local
126    subroutine pruf (dtv,unit,iostat,iomsg)  argument
128       integer, intent(in) :: unit  local