Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/shape_6.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +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