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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 75ff9daf2e3867e63ac0d330a05419267554e22a..db5f9380ad34ac922bb607953647c1c075e76340 100644 (file)
--- 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 81ed35255ba924a188ffd9c5850097b292051579..3e7d8f64d43d5e601530b1660a6eda64f530766c 100644 (file)
--- 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 1fea3957c7a6ef9a10be8763366ed2a8499e26a5..95a059819416e294afb639463e2fb78d406f8ede 100644 (file)
--- 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