diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/c_kind_params.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/c_kind_params.f90 | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/gcc/testsuite/gfortran.dg/c_kind_params.f90 b/gcc/testsuite/gfortran.dg/c_kind_params.f90 index c595a3bbcf0..622ab97b0f3 100644 --- a/gcc/testsuite/gfortran.dg/c_kind_params.f90 +++ b/gcc/testsuite/gfortran.dg/c_kind_params.f90 @@ -41,36 +41,36 @@ contains character(c_char), value :: my_char logical(c_bool), value :: my_bool - if(my_short /= 1_c_short) call abort() - if(my_int /= 2_c_int) call abort() - if(my_long /= 3_c_long) call abort() - if(my_long_long /= 4_c_long_long) call abort() + if(my_short /= 1_c_short) STOP 1 + if(my_int /= 2_c_int) STOP 2 + if(my_long /= 3_c_long) STOP 3 + if(my_long_long /= 4_c_long_long) STOP 4 - if(my_int8_t /= 1_c_int8_t) call abort() - if(my_int_least8_t /= 2_c_int_least8_t ) call abort() - if(my_int_fast8_t /= 3_c_int_fast8_t ) call abort() + if(my_int8_t /= 1_c_int8_t) STOP 5 + if(my_int_least8_t /= 2_c_int_least8_t ) STOP 6 + if(my_int_fast8_t /= 3_c_int_fast8_t ) STOP 7 - if(my_int16_t /= 1_c_int16_t) call abort() - if(my_int_least16_t /= 2_c_int_least16_t) call abort() - if(my_int_fast16_t /= 3_c_int_fast16_t ) call abort() + if(my_int16_t /= 1_c_int16_t) STOP 8 + if(my_int_least16_t /= 2_c_int_least16_t) STOP 9 + if(my_int_fast16_t /= 3_c_int_fast16_t ) STOP 10 - if(my_int32_t /= 1_c_int32_t) call abort() - if(my_int_least32_t /= 2_c_int_least32_t) call abort() - if(my_int_fast32_t /= 3_c_int_fast32_t ) call abort() + if(my_int32_t /= 1_c_int32_t) STOP 11 + if(my_int_least32_t /= 2_c_int_least32_t) STOP 12 + if(my_int_fast32_t /= 3_c_int_fast32_t ) STOP 13 - if(my_int64_t /= 1_c_int64_t) call abort() - if(my_int_least64_t /= 2_c_int_least64_t) call abort() - if(my_int_fast64_t /= 3_c_int_fast64_t ) call abort() + if(my_int64_t /= 1_c_int64_t) STOP 14 + if(my_int_least64_t /= 2_c_int_least64_t) STOP 15 + if(my_int_fast64_t /= 3_c_int_fast64_t ) STOP 16 - if(my_intmax_t /= 1_c_intmax_t) call abort() - if(my_intptr_t /= 0_c_intptr_t) call abort() + if(my_intmax_t /= 1_c_intmax_t) STOP 17 + if(my_intptr_t /= 0_c_intptr_t) STOP 18 - if(my_float /= 1.0_c_float) call abort() - if(my_double /= 2.0_c_double) call abort() - if(my_long_double /= 3.0_c_long_double) call abort() + if(my_float /= 1.0_c_float) STOP 19 + if(my_double /= 2.0_c_double) STOP 20 + if(my_long_double /= 3.0_c_long_double) STOP 21 - if(my_char /= c_char_'y') call abort() - if(my_bool .neqv. .true._c_bool) call abort() + if(my_char /= c_char_'y') STOP 22 + if(my_bool .neqv. .true._c_bool) STOP 23 end subroutine param_test end module c_kind_params |