Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/shape_6.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR fortran/47531 ! ! Contributed by James Van Buskirk ! ! Check for the presence of the optional kind= argument ! of F2003. ! program bug1 use ISO_C_BINDING implicit none real,allocatable :: weevil(:,:) write(*,*) achar(64,C_CHAR) write(*,*) char(64,C_CHAR) write(*,*) iachar('A',C_INTPTR_T) write(*,*) ichar('A',C_INTPTR_T) write(*,*) len('A',C_INTPTR_T) write(*,*) len_trim('A',C_INTPTR_T) allocate(weevil(2,2)) weevil = 42 write(*,*) ceiling(weevil,C_INTPTR_T) write(*,*) floor(weevil,C_INTPTR_T) write(*,*) shape(weevil,C_INTPTR_T) write(*,*) storage_size(weevil,C_INTPTR_T) end program bug1