Initial checkin of GCC 4.9.0 from trunk (r208799).

Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba

1 files changed, 35 insertions, 0 deletions

diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/io_real_boz_3.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/io_real_boz_3.f90
new file mode 100644
index 000000000..abf02ba16
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/io_real_boz_3.f90
@@ -0,0 +1,35 @@
+! { dg-do run }
+! { dg-options "-std=f2008" }
+! { dg-require-effective-target fortran_real_16 }
+!
+! PR fortran/51407
+!
+! Fortran 2008 allows BOZ edit descriptors for real/complex.
+!
+       real(kind=4) :: x
+       complex(kind=4) :: z
+       character(len=64) :: str1
+
+       x = 1.0_16 + 2.0_16**(-105)
+       z = cmplx (1.0, 2.0)
+
+       write (str1,'(b32)') x
+       read (str1,'(b32)') x
+       write (str1,'(o32)') x
+       read (str1,'(o32)') x
+       write (str1,'(z32)') x
+       read (str1,'(z32)') x
+       write (str1,'(b0)') x
+       write (str1,'(o0)') x
+       write (str1,'(z0)') x
+
+       write (str1,'(2b32)') z
+       read (str1,'(2b32)') z
+       write (str1,'(2o32)') z
+       read (str1,'(2o32)') z
+       write (str1,'(2z32)') z
+       read (str1,'(2z32)') z
+       write (str1,'(2b0)') z
+       write (str1,'(2o0)') z
+       write (str1,'(2z0)') z
+       end