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