7 subroutine assumed_rank (a
)
9 integer, intent(in
), target
:: a(..)
12 c
= ubound(c
,a
) ! { dg-error "Assumed-rank argument at .1. is only permitted as first actual argument to the intrinsic inquiry function ubound" }
13 c
= transfer(a
,1) ! { dg-error "Assumed-rank argument at .1. is only permitted as actual argument to intrinsic inquiry functions" }
17 subroutine assumed_type (a
)
19 type(*), intent(in
), target
:: a
22 c
= ubound(c
,a
) ! { dg-error "Assumed-type argument at .1. is only permitted as first actual argument to the intrinsic ubound" }
23 c
= transfer(a
,1) ! { dg-error "Assumed-type argument at .1. is not permitted as actual argument to the intrinsic transfer" }
27 subroutine no_arg_check (a
)
29 integer, intent(in
), target
:: a
30 !gcc$ attributes no_arg_check :: a
33 c
= ubound(c
,a
) ! { dg-error "Variable with NO_ARG_CHECK attribute at .1. is only permitted as argument to the intrinsic functions C_LOC and PRESENT" }
34 c
= transfer(a
,1) ! { dg-error "Variable with NO_ARG_CHECK attribute at .1. is only permitted as argument to the intrinsic functions C_LOC and PRESENT" }