From: Mark Eggleston Date: Fri, 7 Jun 2019 14:25:39 +0000 (+0000) Subject: re PR fortran/89100 (Default widths for i, f and g format specifiers in format strings) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fe763d2666a4818e079e1579eebf9f099994d629;p=gcc.git re PR fortran/89100 (Default widths for i, f and g format specifiers in format strings) 2019-06-07 Mark Eggleston PR fortran/89100 * gfortran.dg/fmt_f_default_field_width_3.f90: Modify dg-error to allow use when kind=16 is not supported. * gfortran.dg/fmt_g_default_field_width_3.f90: Modify dg-error to allow use when kind=16 is not supported. From-SVN: r272046 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 75ff9daf2e3..db5f9380ad3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2019-06-07 Mark Eggleston + + PR fortran/89100 + * gfortran.dg/fmt_f_default_field_width_3.f90: Modify dg-error + to allow use when kind=16 is not supported. + * gfortran.dg/fmt_g_default_field_width_3.f90: Modify dg-error + to allow use when kind=16 is not supported. + 2019-06-07 Richard Biener PR debug/90574 diff --git a/gcc/testsuite/gfortran.dg/fmt_f_default_field_width_3.f90 b/gcc/testsuite/gfortran.dg/fmt_f_default_field_width_3.f90 index 81ed35255ba..3e7d8f64d43 100644 --- a/gcc/testsuite/gfortran.dg/fmt_f_default_field_width_3.f90 +++ b/gcc/testsuite/gfortran.dg/fmt_f_default_field_width_3.f90 @@ -30,6 +30,6 @@ program test #ifdef __GFC_REAL_16__ real_16 = 4.18 - write(buffer, fmt) ':',real_16,':' ! { dg-error "Nonnegative width required" } + write(buffer, fmt) ':',real_16,':' ! { dg-error "Nonnegative width required" "" { target fortran_real_16 } } #endif end diff --git a/gcc/testsuite/gfortran.dg/fmt_g_default_field_width_3.f90 b/gcc/testsuite/gfortran.dg/fmt_g_default_field_width_3.f90 index 1fea3957c7a..95a05981941 100644 --- a/gcc/testsuite/gfortran.dg/fmt_g_default_field_width_3.f90 +++ b/gcc/testsuite/gfortran.dg/fmt_g_default_field_width_3.f90 @@ -33,6 +33,6 @@ program test #ifdef __GFC_REAL_16__ real_16 = 4.18 - write(buffer, fmt) ':',real_16,':' ! { dg-error "Positive width required" } + write(buffer, fmt) ':',real_16,':' ! { dg-error "Positive width required" "" { target fortran_real_16 } } #endif end