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