3 ! PR 44649: [OOP] F2008: storage_size intrinsic
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
7 use iso_c_binding, only: c_int, c_sizeof
17 print *,c_sizeof(i1) ! { dg-error "must be an interoperable data entity" }
20 print *, c_sizeof(ran()) ! { dg-error "must be an interoperable data entity" }
22 print *,storage_size(1.0,4)
23 print *,storage_size(1.0,3.2) ! { dg-error "must be INTEGER" }
24 print *,storage_size(1.0,(/1,2/)) ! { dg-error "must be a scalar" }
25 print *,storage_size(1.0,irand()) ! { dg-error "must be a constant" }