From fe763d2666a4818e079e1579eebf9f099994d629 Mon Sep 17 00:00:00 2001 From: Mark Eggleston Date: Fri, 7 Jun 2019 14:25:39 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 8 ++++++++ gcc/testsuite/gfortran.dg/fmt_f_default_field_width_3.f90 | 2 +- gcc/testsuite/gfortran.dg/fmt_g_default_field_width_3.f90 | 2 +- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 75ff9daf2e38..db5f9380ad34 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 81ed35255ba9..3e7d8f64d43d 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 1fea3957c7a6..95a059819416 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 -- 2.47.2