1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/unf_io_convert_3.f90 b/gcc/testsuite/gfortran.dg/unf_io_convert_3.f90
new file mode 100644
index 000000000..860107354
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/unf_io_convert_3.f90
@@ -0,0 +1,19 @@
+! { dg-do run }
+! { dg-require-effective-target fortran_large_real }
+program main
+  integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1)
+  real(kind=k) a,b,c
+  a = 1.1_k
+  open(10,convert="swap",form="unformatted") ! { dg-warning "Extension: CONVERT" }
+  write(10) a
+  backspace 10
+  read (10) b
+  close(10,status="delete")
+  if (a /= b) call abort
+  write (11) a
+  backspace 11
+  open (11,form="unformatted")
+  read (11) c
+  if (a .ne. c) call abort
+  close (11, status="delete")
+end program main