1! { dg-do compile }
2!
3! Issue came up during the review of PR fortran/58793
4!
5! Test for TS29113:2012's C407b.
6!
7program test
8  use iso_c_binding
9  integer,target ::aa
10  call up(c_loc(aa))
11contains
12  subroutine up(x)
13    class(*) :: x
14  end subroutine
15  subroutine bar(x)
16   type(*) :: x
17   call up(x) ! { dg-error "Assumed-type actual argument at .1. requires that dummy argument 'x' is of assumed type" }
18  end subroutine bar
19end program test
20