1! { dg-do run }
2program 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
35end program print_c_kinds
36