diff options
| author | Mark Eggleston <mark.eggleston@codethink.com> | 2019-06-07 14:25:39 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2019-06-07 14:25:39 +0000 |
| commit | fe763d2666a4818e079e1579eebf9f099994d629 (patch) | |
| tree | 621719fb311673553f41205f5222a8db0d979c0f | |
| parent | 6e5443979505b2bc71afe76ef9fd95c38cdb9090 (diff) | |
| download | gcc-fe763d2666a4818e079e1579eebf9f099994d629.zip gcc-fe763d2666a4818e079e1579eebf9f099994d629.tar.gz gcc-fe763d2666a4818e079e1579eebf9f099994d629.tar.bz2 | |
re PR fortran/89100 (Default widths for i, f and g format specifiers in format strings)
2019-06-07 Mark Eggleston <mark.eggleston@codethink.com>
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_f_default_field_width_3.f90 | 2 | ||||
| -rw-r--r-- | 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 75ff9da..db5f938 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2019-06-07 Mark Eggleston <mark.eggleston@codethink.com> + + 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 <rguenther@suse.de> 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 81ed352..3e7d8f6 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 1fea395..95a0598 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 |