re PR libfortran/89274 (Inconsistent list directed output of INTEGER(16))

2019-02-25  Dominique d'Humieres  <dominiq@gcc.gnu.org>

	PR libfortran/89274
	* gfortran.dg/list_directed_large.f90: New test. 

2019-02-25  Dominique d'Humieres  <dominiq@gcc.gnu.org>

	PR libfortran/89274
	* io/write.c (write_integer): Add width for INTEGER(16).

From-SVN: r269187

gcc/testsuite/ChangeLog

+2019-02-25  Dominique d'Humieres  <dominiq@gcc.gnu.org>
+
+	PR libfortran/89274
+	* gfortran.dg/list_directed_large.f90: New test. 
+
 2019-02-25  Jakub Jelinek  <jakub@redhat.com>
 
 	PR target/89434

gcc/testsuite/gfortran.dg/list_directed_large.f90

+! { dg-do run }
+! { dg-require-effective-target fortran_large_int }
+! PR libfortran/89274 Inconsistent list directed output of INTEGER(16)
+!
+integer(16) :: j(2)
+character(82) :: str
+j = huge(1_16)
+write(str,*) j
+if (str /= "  170141183460469231731687303715884105727  170141183460469231731687303715884105727") stop 1
+j = 1
+write(str,*) j
+if (str /= "                                        1                                        1") stop 2
+j = -huge(1_16)
+write(str,*) j
+if (str /= " -170141183460469231731687303715884105727 -170141183460469231731687303715884105727") stop 3
+end

libgfortran/ChangeLog

+2019-02-25  Dominique d'Humieres  <dominiq@gcc.gnu.org>
+
+	PR libfortran/89274
+	* io/write.c (write_integer): Add width for INTEGER(16).
+
 2019-02-23  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/89385

libgfortran/io/write.c

@@ -1342,6 +1342,10 @@ write_integer (st_parameter_dt *dtp, const char *source, int kind)
       width = 20;
       break;
 
+    case 16:
+      width = 40;
+      break;
+
     default:
       width = 0;
       break;