gcc/testsuite/gfortran.dg/print_c_kinds.f90

   1 ! { dg-do run }
   2 program print_c_kinds
   3   use, intrinsic :: iso_c_binding
   4   implicit none
   5
   6   print *, 'c_short is:              ', c_short
   7   print *, 'c_int is:                ', c_int
   8   print *, 'c_long is:               ', c_long
   9   print *, 'c_long_long is:          ', c_long_long
  10   print *
  11   print *, 'c_int8_t is:             ', c_int8_t
  12   print *, 'c_int_least8_t is:       ', c_int_least8_t
  13   print *, 'c_int_fast8_t is:        ', c_int_fast8_t
  14   print *
  15   print *, 'c_int16_t is:            ', c_int16_t
  16   print *, 'c_int_least16_t is:      ', c_int_least16_t
  17   print *, 'c_int_fast16_t is:       ', c_int_fast16_t
  18   print *
  19   print *, 'c_int32_t is:            ', c_int32_t
  20   print *, 'c_int_least32_t is:      ', c_int_least32_t
  21   print *, 'c_int_fast32_t is:       ', c_int_fast32_t
  22   print *
  23   print *, 'c_int64_t is:            ', c_int64_t
  24   print *, 'c_int_least64_t is:      ', c_int_least64_t
  25   print *, 'c_int_fast64_t is:       ', c_int_fast64_t
  26   print *
  27   print *, 'c_intmax_t is:           ', c_intmax_t
  28   print *, 'c_intptr_t is:           ', c_intptr_t
  29   print *
  30   print *, 'c_float is:              ', c_float
  31   print *, 'c_double is:             ', c_double
  32   print *, 'c_long_double is:        ', c_long_double
  33   print *
  34   print *, 'c_char is:               ', c_char
  35 end program print_c_kinds