gcc/testsuite/gfortran.dg/c_sizeof_6.f90

   1 ! { dg-do compile }
   2 !
   3 program foo
   4
   5    use iso_c_binding, only: c_int, c_char, c_sizeof
   6
   7    integer(kind=c_int) :: i
   8
   9    character(kind=c_char,len=1),parameter :: str2(4) = ["a","b","c","d"]
  10
  11    i = c_sizeof(str2(1:3)) ! { dg-error "must be an interoperable data" }
  12
  13    if (i /= 3) call abort()
  14
  15 end program foo
  16