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