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)