tools/fortran_2003_iso_c_test.F

   1       PROGRAM fortran_2003_test
   2
   3       USE , INTRINSIC :: ISO_C_BINDING
   4
   5       IMPLICIT NONE
   6
   7       INTEGER , PARAMETER :: STR_LEN = 10
   8
   9       type, bind(c) :: r_info
  10           integer(c_int64_t)                         :: offset
  11           integer(c_int64_t)                         :: data_offset
  12           integer(c_int32_t)                         :: data_count
  13           integer(c_int32_t)                         :: data_type
  14           character(kind=c_char), dimension(STR_LEN) :: name
  15           character(kind=c_char), dimension(STR_LEN) :: date
  16       end type r_info
  17
  18       REAL :: x , y , z
  19
  20       x = 1.e+10
  21       y = 1.e-10
  22       z = x + y
  23
  24       END PROGRAM fortran_2003_test