5 ! Contributed by James Van Buskirk
7 ! Check for the presence of the optional kind= argument
14 real,allocatable
:: weevil(:,:)
16 write(*,*) achar(64,C_CHAR
)
17 write(*,*) char(64,C_CHAR
)
18 write(*,*) iachar('A',C_INTPTR_T
)
19 write(*,*) ichar('A',C_INTPTR_T
)
20 write(*,*) len('A',C_INTPTR_T
)
21 write(*,*) len_trim('A',C_INTPTR_T
)
24 write(*,*) ceiling(weevil
,C_INTPTR_T
)
25 write(*,*) floor(weevil
,C_INTPTR_T
)
26 write(*,*) shape(weevil
,C_INTPTR_T
)
27 write(*,*) storage_size(weevil
,C_INTPTR_T
)