13 ii
= sizeof (x
) ! { dg-error "Assumed-type argument at .1. is not permitted as actual argument to the intrinsic sizeof" }
14 ii
= c_sizeof (x
) ! { dg-error "Assumed-type argument at .1. is not permitted as actual argument to the intrinsic c_sizeof" }
15 ii
= storage_size (x
) ! { dg-error "Assumed-type argument at .1. is not permitted as actual argument to the intrinsic storage_size" }
17 ii
= sizeof (y
) ! { dg-error "shall not be an assumed-size array" }
18 ii
= c_sizeof (y
) ! { dg-error "shall not be an assumed-size array" }
19 ii
= storage_size (y
) ! okay, element-size is known
21 ii
= sizeof (proc
) ! { dg-error "shall not be a procedure" }
22 ii
= c_sizeof (proc
) ! { dg-error "Procedure unexpected as argument" }
23 ii
= storage_size (proc
) ! { dg-error "shall not be a procedure" }